emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el


From: Luc Teirlinck
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el
Date: Sat, 04 Jun 2005 18:27:57 -0400

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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]