(article-update-date-lapsed): Make sure point

doesn't move around (much).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd7ca83..85347d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-update-date-lapsed): Make sure point
+       doesn't move around (much).
+
 2003-07-28  Vasily Korytov  <deskpot@myrealbox.com>
 
        * mail-source.el (mail-source-keyword-map): List "cur" before

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d066a13..4c4bbff 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2937,9 +2937,12 @@ function and want to see what the date was before converting."
         (lambda (w)
           (set-buffer (window-buffer w))
           (when (eq major-mode 'gnus-article-mode)
-            (goto-char (point-min))
-            (when (re-search-forward "^X-Sent:" nil t)
-              (article-date-lapsed t))))
+            (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)