diff options
| -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))) |