aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2017-01-25 20:57:52 +0100
committerLars Ingebrigtsen2017-01-25 20:57:52 +0100
commite0e95199b93a232e5d4da67823364676ca9cb67c (patch)
tree88547e2386c37b5edaf210fb5d683d51e3fbd89d
parent36cbe217c818000d90fea132f0c8041f06748502 (diff)
downloademacs-e0e95199b93a232e5d4da67823364676ca9cb67c.tar.gz
emacs-e0e95199b93a232e5d4da67823364676ca9cb67c.zip
Fix the %P (line number) thing in Gnus summary buffers
* lisp/gnus/gnus-salt.el (gnus-pick-line-number): Remove hack. * lisp/gnus/gnus-sum.el (gnus-summary-read-group-1): Reset the "pick" mode line number on entry instead of relying in a hack (bug#18311).
-rw-r--r--lisp/gnus/gnus-salt.el4
-rw-r--r--lisp/gnus/gnus-sum.el2
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index 5361c2b86fc..7037328b7a4 100644
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -131,9 +131,7 @@ It accepts the same format specs that `gnus-summary-line-format' does."
131(defvar gnus-pick-line-number 1) 131(defvar gnus-pick-line-number 1)
132(defun gnus-pick-line-number () 132(defun gnus-pick-line-number ()
133 "Return the current line number." 133 "Return the current line number."
134 (if (bobp) 134 (incf gnus-pick-line-number))
135 (setq gnus-pick-line-number 1)
136 (incf gnus-pick-line-number)))
137 135
138(defun gnus-pick-start-reading (&optional catch-up) 136(defun gnus-pick-start-reading (&optional catch-up)
139 "Start reading the picked articles. 137 "Start reading the picked articles.
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 624833420d7..e21d6bdb67d 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -3976,6 +3976,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
3976 ;; The group was successfully selected. 3976 ;; The group was successfully selected.
3977 (t 3977 (t
3978 (gnus-set-global-variables) 3978 (gnus-set-global-variables)
3979 (when (boundp 'gnus-pick-line-number)
3980 (setq gnus-pick-line-number 0))
3979 (when (boundp 'spam-install-hooks) 3981 (when (boundp 'spam-install-hooks)
3980 (spam-initialize)) 3982 (spam-initialize))
3981 ;; Save the active value in effect when the group was entered. 3983 ;; Save the active value in effect when the group was entered.