mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

gnus-art.el (article-update-date-lapsed): Try a better way to really keep point at the "same place".

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2011-01-29 02:29:38 +00:00 committed by Katsumi Yamaoka
parent 9bfe578343
commit bc68bd3998
2 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2011-01-29 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (article-update-date-lapsed): Try a better way to really
keep point at the "same place".
2011-01-28 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active

26
lisp/gnus/gnus-art.el
View File

@ -3692,28 +3692,22 @@ function and want to see what the date was before converting."
(lambda (w)
(set-buffer (window-buffer w))
(when (eq major-mode 'gnus-article-mode)
(let ((mark (point-marker))
(old-point (point)))
(let ((old-line (count-lines (point-min) (point)))
(old-column (current-column)))
(goto-char (point-min))
(when (re-search-forward "^X-Sent:\\|^Date:" nil t)
;; If the point is on the Date line, then use that
;; absolute position. Otherwise, use the mark.
;; This will ensure that point stays at the "same
;; place".
(when (or (< old-point (match-beginning 0))
(> old-point (progn
(forward-line 1)
(while (and (not (eobp))
(looking-at "X-Sent:\\|Date:"))
(forward-line))
(point))))
(setq old-point nil))
(when gnus-treat-date-combined-lapsed
(article-date-combined-lapsed t))
(when gnus-treat-date-lapsed
(article-date-lapsed t)))
(goto-char (or old-point (marker-position mark)))
(move-marker mark nil))))
(goto-char (point-min))
(when (> old-column 0)
(setq old-line (1- old-line)))
(forward-line old-line)
(end-of-line)
(when (> (current-column) old-column)
(beginning-of-line)
(forward-char old-column)))))
nil 'visible))))))
(defun gnus-start-date-timer (&optional n)