[gnus git] branch master updated: m0-1-18-g7b492ea =1= * mm-archive.el (mm-archive-list-files): Inline text and image parts.

       via  7b492ea6a87dc5ff2590d6bd132d32c3ab408286 (commit)
      from  67445c8c3427d6924fb337b935861d8c5dc2d4ed (commit)


- Log -----------------------------------------------------------------
commit 7b492ea6a87dc5ff2590d6bd132d32c3ab408286
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 1 02:00:51 2012 +0100

    * mm-archive.el (mm-archive-list-files): Inline text and image parts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da89607..929d8cb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-02-01  Lars Ingebrigtsen  <[email protected]>
 
+	* mm-archive.el (mm-archive-list-files): Inline text and image parts.
+
 	* mm-decode.el (mm-shr): Make sure that the HTML ends with a newline.
 	Otherwise inserting text into the Gnus buffer can look odd.
 
diff --git a/lisp/mm-archive.el b/lisp/mm-archive.el
index c8fced4..974c31c 100644
--- a/lisp/mm-archive.el
+++ b/lisp/mm-archive.el
@@ -51,7 +51,7 @@
 
 (defun mm-archive-list-files (dir)
   (let ((handles nil)
-	type)
+	type disposition)
     (dolist (file (directory-files dir))
       (unless (member file '("." ".."))
 	(with-temp-buffer
@@ -59,6 +59,10 @@
 	    (setq type (mailcap-extension-to-mime (match-string 1 file))))
 	  (unless type
 	    (setq type "application/octet-stream"))
+	  (setq disposition
+		(if (string-match "^image/\\|^text/" type)
+		    "inline"
+		  "attachment"))
 	  (insert (format "Content-type: %s\n" type))
 	  (insert "Content-Transfer-Encoding: 8bit\n\n")
 	  (insert-file-contents (expand-file-name file dir))
@@ -66,7 +70,7 @@
 	   (mm-make-handle (mm-copy-to-buffer)
 			   (list type)
 			   '8bit nil
-			   `("attachment" (filename . ,file))
+			   `(,disposition (filename . ,file))
 			   nil nil nil)
 	   handles))))
     handles))

-----------------------------------------------------------------------
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     |    2 ++
 lisp/mm-archive.el |    8 ++++++--
 2 files changed, 8 insertions(+), 2 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