diff options
| author | Andrew G Cohen | 2017-04-25 13:13:10 +0800 |
|---|---|---|
| committer | Andrew G Cohen | 2017-04-25 13:13:10 +0800 |
| commit | 46dafe4103d1d24a9ec9b3a7a561829bcd5807aa (patch) | |
| tree | cbf70510e174dd3458e7de3fb4aab65051bace75 | |
| parent | 622c24a2b75a564b9861fc3ca7a7878741e8568d (diff) | |
| download | emacs-46dafe4103d1d24a9ec9b3a7a561829bcd5807aa.tar.gz emacs-46dafe4103d1d24a9ec9b3a7a561829bcd5807aa.zip | |
Fix requesting sparse articles in gnus
* lisp/gnus/gnus-art.el (gnus-request-article-this-buffer): Delete the
sparse article number from the list, not its id.
| -rw-r--r-- | lisp/gnus/gnus-art.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index a4ff840f755..9b91f9f85e7 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -6993,10 +6993,10 @@ If given a prefix, show the hidden text instead." | |||
| 6993 | ((memq article gnus-newsgroup-sparse) | 6993 | ((memq article gnus-newsgroup-sparse) |
| 6994 | ;; This is a sparse gap article. | 6994 | ;; This is a sparse gap article. |
| 6995 | (setq do-update-line article) | 6995 | (setq do-update-line article) |
| 6996 | (setq article (mail-header-id header)) | ||
| 6997 | (setq sparse-header (gnus-read-header article)) | ||
| 6998 | (setq gnus-newsgroup-sparse | 6996 | (setq gnus-newsgroup-sparse |
| 6999 | (delq article gnus-newsgroup-sparse))) | 6997 | (delq article gnus-newsgroup-sparse)) |
| 6998 | (setq article (mail-header-id header)) | ||
| 6999 | (setq sparse-header (gnus-read-header article))) | ||
| 7000 | ((vectorp header) | 7000 | ((vectorp header) |
| 7001 | ;; It's a real article. | 7001 | ;; It's a real article. |
| 7002 | (setq article (mail-header-id header))) | 7002 | (setq article (mail-header-id header))) |