# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1117924077 0
# Node ID 81ee906cdd23d506766164997e173923e67bfaf0
# Parent  36a997bd89f77a35922668c9f56d5d843124f756
(article-update-date-lapsed): Use `save-match-data'.

diff -r 36a997bd89f7 -r 81ee906cdd23 lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Sat Jun 04 22:23:44 2005 +0000
+++ b/lisp/gnus/gnus-art.el	Sat Jun 04 22:27:57 2005 +0000
@@ -3038,20 +3038,21 @@
 
 (defun article-update-date-lapsed ()
   "Function to be run from a timer to update the lapsed time line."
-  (let (deactivate-mark)
-    (save-excursion
-      (ignore-errors
-	(walk-windows
-	 (lambda (w)
-	   (set-buffer (window-buffer w))
-	   (when (eq major-mode 'gnus-article-mode)
-	     (let ((mark (point-marker)))
-	       (goto-char (point-min))
-	       (when (re-search-forward "^X-Sent:" nil t)
-		 (article-date-lapsed t))
-	       (goto-char (marker-position mark))
-	       (move-marker mark nil))))
-	 nil 'visible)))))
+  (save-match-data
+    (let (deactivate-mark)
+      (save-excursion
+	(ignore-errors
+	 (walk-windows
+	  (lambda (w)
+	    (set-buffer (window-buffer w))
+	    (when (eq major-mode 'gnus-article-mode)
+	      (let ((mark (point-marker)))
+		(goto-char (point-min))
+		(when (re-search-forward "^X-Sent:" nil t)
+		  (article-date-lapsed t))
+		(goto-char (marker-position mark))
+		(move-marker mark nil))))
+	  nil 'visible))))))
 
 (defun gnus-start-date-timer (&optional n)
   "Start a timer to update the X-Sent header in the article buffers.