Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e0a8aa09
Commit
e0a8aa09
authored
Jun 04, 2005
by
Luc Teirlinck
Browse files
(article-update-date-lapsed): Use `save-match-data'.
parent
bed88438
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
14 deletions
+15
-14
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+15
-14
No files found.
lisp/gnus/gnus-art.el
View file @
e0a8aa09
...
...
@@ -3038,20 +3038,21 @@ function and want to see what the date was before converting."
(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)))))
(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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment