Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.75 emacs/lisp/gnus/gnus-art.el:1.76
*** emacs/lisp/gnus/gnus-art.el:1.75 Fri Jun 3 22:03:47 2005
--- emacs/lisp/gnus/gnus-art.el Sat Jun 4 22:27:57 2005
***************
*** 3038,3057 ****
(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)))))
(defun gnus-start-date-timer (&optional n)
"Start a timer to update the X-Sent header in the article buffers.
--- 3038,3058 ----
(defun article-update-date-lapsed ()
"Function to be run from a timer to update the lapsed time line."
! (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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
