[gnus git] branch master updated: m0-9-59-g569c0da =1= 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

       via  569c0da04cadc14d980f784be1134f3097f38b25 (commit)
      from  cbb4a842bade1d60bf7363dd9addbc61f1fd8848 (commit)


- Log -----------------------------------------------------------------
commit 569c0da04cadc14d980f784be1134f3097f38b25
Author: Katsumi Yamaoka <[email protected]>
Date:   Mon Feb 17 06:51:53 2014 +0000

    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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfbc2ea..2184631 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-02-17  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* 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
--- 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)
-	      ;; 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
@@ -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
-      (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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    6 ++++++
 lisp/gnus-art.el |    8 ++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project