gnus-art.el (gnus-article-prepare, gnus-article-prepare-display): Display header...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfbc2ea..2184631 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-02-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-prepare, gnus-article-prepare-display):
+       Display header attachment buttons by gnus-article-prepare-display
+       rather than gnus-article-prepare so as to view in mml-preview as well.
+

 2014-02-13  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-sources): Add pointer to what the .gpg extension
 2014-02-13  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-sources): Add pointer to what the .gpg extension

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index eb57a55..06792b8 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4696,9 +4696,6 @@ If ALL-HEADERS is non-nil, no headers are hidden."
            (when (or (numberp article)
                      (stringp article))
              (gnus-article-prepare-display)
            (when (or (numberp article)
                      (stringp article))
              (gnus-article-prepare-display)

-             ;; Add attachment buttons to the header.
-             (when gnus-mime-display-attachment-buttons-in-header
-               (gnus-mime-buttonize-attachments-in-header))

              ;; Do page break.
              (goto-char (point-min))
              (when gnus-break-pages
              ;; Do page break.
              (goto-char (point-min))
              (when gnus-break-pages


@@ -4729,7 +4726,10 @@ If ALL-HEADERS is non-nil, no headers are hidden."
          gnus-article-image-alist nil)
     (gnus-run-hooks 'gnus-tmp-internal-hook)
     (when gnus-display-mime-function
          gnus-article-image-alist nil)
     (gnus-run-hooks 'gnus-tmp-internal-hook)
     (when gnus-display-mime-function

-      (funcall gnus-display-mime-function))))
+      (funcall gnus-display-mime-function))
+    ;; Add attachment buttons to the header.
+    (when gnus-mime-display-attachment-buttons-in-header
+      (gnus-mime-buttonize-attachments-in-header))))

 
 ;;;
 ;;; Gnus Sticky Article Mode
 
 ;;;
 ;;; Gnus Sticky Article Mode