[gnus git] branch master updated: m0-5-27-gfc3bfc9 =1= (mm-display-part): Dissect archives when hitting `RET' on a handle.

       via  fc3bfc98bc9b5be3a1b8907e802282add418d70f (commit)
      from  c94749b45b351625387eeb4b4bb65d3842b8d683 (commit)


- Log -----------------------------------------------------------------
commit fc3bfc98bc9b5be3a1b8907e802282add418d70f
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 10 23:37:07 2012 +0200

    (mm-display-part): Dissect archives when hitting `RET' on a handle.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48991ed..90ae9da 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-06-10  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* mm-decode.el (mm-display-part): Dissect archives when hitting `RET'
+	on a handle.
+
 	* gnus-sum.el (gnus-summary-limit-to-author): Use the current From
 	address as the default.
 	(gnus-summary-insert-old-articles): Don't include unexistent messages.
diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index de2d1ed..0aac432 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -769,14 +769,20 @@ external if displayed external."
 			   (mail-content-type-get
 			    (mm-handle-type handle) 'name)
 			   "<file>"))
-	     (external mm-enable-external))
-	(if (and (mm-inlinable-p ehandle)
+	     (external mm-enable-external)
+	     (decoder (assoc (car (mm-handle-type handle))
+			     (mm-archive-decoders))))
+	(cond
+	 ((and decoder
+	       (executable-find (caddr decoder)))
+	  (mm-archive-dissect-and-inline handle)
+	  'inline)
+	 ((and (mm-inlinable-p ehandle)
 		 (mm-inlined-p ehandle))
-	    (progn
 	      (forward-line 1)
 	      (mm-display-inline handle)
 	      'inline)
-	  (when (or method
+	 ((or method
 		    (not no-default))
 	    (if (and (not method)
 		     (equal "text" (car (split-string type "/"))))

-----------------------------------------------------------------------
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    |    3 +++
 lisp/mm-decode.el |   50 ++++++++++++++++++++++++++++----------------------
 2 files changed, 31 insertions(+), 22 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