*** empty log message ***

[gnus] / lisp / gnus-sum.el

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index d8239aa..ad34dbf 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1592,8 +1592,6 @@ increase the score of each group you read."
        ["Remove article" gnus-cache-remove-article t])
        ["Enter digest buffer" gnus-summary-enter-digest-group t]
        ["Isearch article..." gnus-summary-isearch-article t]
-       ["Search articles forward..." gnus-summary-search-article-forward t]
-       ["Search articles backward..." gnus-summary-search-article-backward t]
        ["Beginning of the article" gnus-summary-beginning-of-article t]
        ["End of the article" gnus-summary-end-of-article t]
        ["Fetch parent of article" gnus-summary-refer-parent-article t]
@@ -1740,6 +1738,8 @@ increase the score of each group you read."
        ["Toggle threading" gnus-summary-toggle-threads t])
        ["Filter articles..." gnus-summary-execute-command t]
        ["Run command on subjects..." gnus-summary-universal-argument t]
+       ["Search articles forward..." gnus-summary-search-article-forward t]
+       ["Search articles backward..." gnus-summary-search-article-backward t]
        ["Toggle line truncation" gnus-summary-toggle-truncation t]
        ["Expand window" gnus-summary-expand-window t]
        ["Expire expirable articles" gnus-summary-expire-articles
@@ -1945,6 +1945,9 @@ The following commands are available:
 (defmacro gnus-data-header (data)
   `(nth 3 ,data))
 
+(defmacro gnus-data-set-header (data header)
+  `(setf (nth 3 ,data) ,header))
+
 (defmacro gnus-data-level (data)
   `(nth 4 ,data))
 
@@ -6913,11 +6916,26 @@ groups."
        (save-excursion
          (save-restriction
            (message-narrow-to-head)
-           (let ((header (nnheader-parse-head t)))
-             (set-buffer buffer)
-             (mail-header-set-number header (cdr gnus-article-current))
-             (gnus-summary-update-article-line
-              (cdr gnus-article-current) header))))
+           (let ((head (buffer-string))
+                 header)
+             (nnheader-temp-write nil
+               (insert (format "211 %d Article retrieved.\n"
+                               (cdr gnus-article-current)))
+               (insert head)
+               (insert ".\n")
+               (let ((nntp-server-buffer (current-buffer)))
+                 (setq header (car (gnus-get-newsgroup-headers
+                                    (save-excursion
+                                      (set-buffer gnus-summary-buffer)
+                                      gnus-newsgroup-dependencies)
+                                    t))))
+               (save-excursion
+                 (set-buffer gnus-summary-buffer)
+                 (gnus-data-set-header
+                  (gnus-data-find (cdr gnus-article-current))
+                  header)
+                 (gnus-summary-update-article-line
+                  (cdr gnus-article-current) header))))))
       ;; Update threads.
       (set-buffer (or buffer gnus-summary-buffer))
       (gnus-summary-update-article (cdr gnus-article-current)))