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. |