diff options
| author | Lars Ingebrigtsen | 2017-01-25 20:57:52 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2017-01-25 20:57:52 +0100 |
| commit | e0e95199b93a232e5d4da67823364676ca9cb67c (patch) | |
| tree | 88547e2386c37b5edaf210fb5d683d51e3fbd89d | |
| parent | 36cbe217c818000d90fea132f0c8041f06748502 (diff) | |
| download | emacs-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.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
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. |