diff options
| author | Lars Magne Ingebrigtsen | 2013-01-21 22:07:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2013-01-21 22:07:34 +0000 |
| commit | bb677ef7449aba3c2d5d7ede8cc4b87814f01ab3 (patch) | |
| tree | e20e8bda3e5427108c320c22a85b54d6f1ec4794 | |
| parent | 84e5ed96b066fec76f81487d3a21729159ad721e (diff) | |
| download | emacs-bb677ef7449aba3c2d5d7ede8cc4b87814f01ab3.tar.gz emacs-bb677ef7449aba3c2d5d7ede8cc4b87814f01ab3.zip | |
gnus-sum.el (gnus-summary-read-group-1): Debbugs group entry fixups
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1f1b46c8532..745e0ede5a8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-01-21 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-sum.el (gnus-summary-read-group-1): Protect against not being | ||
| 4 | able to find the article, which can happen in debbugs groups, | ||
| 5 | apparently. | ||
| 6 | |||
| 1 | 2013-01-16 Glenn Morris <rgm@gnu.org> | 7 | 2013-01-16 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * smiley.el (smiley-style): Make the file loadable in batch mode. | 9 | * smiley.el (smiley-style): Make the file loadable in batch mode. |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index ea68a6a2fa5..658863f9f00 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -4058,9 +4058,10 @@ If SELECT-ARTICLES, only select those articles from GROUP." | |||
| 4058 | gnus-auto-select-first) | 4058 | gnus-auto-select-first) |
| 4059 | (progn | 4059 | (progn |
| 4060 | (let ((art (gnus-summary-article-number))) | 4060 | (let ((art (gnus-summary-article-number))) |
| 4061 | (unless (and (not gnus-plugged) | 4061 | (when (and art |
| 4062 | (or (memq art gnus-newsgroup-undownloaded) | 4062 | gnus-plugged |
| 4063 | (memq art gnus-newsgroup-downloadable))) | 4063 | (not (memq art gnus-newsgroup-undownloaded)) |
| 4064 | (not (memq art gnus-newsgroup-downloadable))) | ||
| 4064 | (gnus-summary-goto-article art)))) | 4065 | (gnus-summary-goto-article art)))) |
| 4065 | ;; Don't select any articles. | 4066 | ;; Don't select any articles. |
| 4066 | (gnus-summary-position-point) | 4067 | (gnus-summary-position-point) |