/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.75 by monnier, Fri Jun 3 22:03:47 2005 UTC revision 1.76 by teirllm, Sat Jun 4 22:27:57 2005 UTC
# Line 3038  function and want to see what the date w Line 3038  function and want to see what the date w
3038    
3039  (defun article-update-date-lapsed ()  (defun article-update-date-lapsed ()
3040    "Function to be run from a timer to update the lapsed time line."    "Function to be run from a timer to update the lapsed time line."
3041    (let (deactivate-mark)    (save-match-data
3042      (save-excursion      (let (deactivate-mark)
3043        (ignore-errors        (save-excursion
3044          (walk-windows          (ignore-errors
3045           (lambda (w)           (walk-windows
3046             (set-buffer (window-buffer w))            (lambda (w)
3047             (when (eq major-mode 'gnus-article-mode)              (set-buffer (window-buffer w))
3048               (let ((mark (point-marker)))              (when (eq major-mode 'gnus-article-mode)
3049                 (goto-char (point-min))                (let ((mark (point-marker)))
3050                 (when (re-search-forward "^X-Sent:" nil t)                  (goto-char (point-min))
3051                   (article-date-lapsed t))                  (when (re-search-forward "^X-Sent:" nil t)
3052                 (goto-char (marker-position mark))                    (article-date-lapsed t))
3053                 (move-marker mark nil))))                  (goto-char (marker-position mark))
3054           nil 'visible)))))                  (move-marker mark nil))))
3055              nil 'visible))))))
3056    
3057  (defun gnus-start-date-timer (&optional n)  (defun gnus-start-date-timer (&optional n)
3058    "Start a timer to update the X-Sent header in the article buffers.    "Start a timer to update the X-Sent header in the article buffers.

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26