X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/9f19b8ddfe3a46d8a5ae86b6c8d2394562d02843..d52969e8afaa19ed1acc01f4ff0bb651bf7869a7:/lisp/mail/rmailmm.el

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index d6af925d46..2b42f81131 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -6,6 +6,7 @@
 ;;	Alex Schroeder
 ;; Maintainer: FSF
 ;; Keywords: mail
+;; Package: rmail
 
 ;; This file is part of GNU Emacs.
 
@@ -52,7 +53,7 @@
 ;;
 ;; rmail-mime
 ;;  +- rmail-mime-show <----------------------------------+
-;;       +- rmail-mime-process                            | 
+;;       +- rmail-mime-process                            |
 ;;            +- rmail-mime-handle                        |
 ;;                 +- rmail-mime-text-handler             |
 ;;                 +- rmail-mime-bulk-handler             |
@@ -159,7 +160,7 @@ A MIME-entity is a vector of 9 elements:
 
   [TYPE DISPOSITION TRANSFER-ENCODING DISPLAY HEADER TAGLINE BODY
    CHILDREN HANDLER]
-  
+
 TYPE and DISPOSITION correspond to MIME headers Content-Type and
 Cotent-Disposition respectively, and has this format:
 
@@ -326,7 +327,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
     (aset new 2 (aref (rmail-mime-entity-body entity) 2)))
   (dolist (child (rmail-mime-entity-children entity))
     (rmail-mime-shown-mode child)))
-  
+
 (defun rmail-mime-hidden-mode (entity)
   "Make MIME-entity ENTITY displayed in the hidden mode."
   (let ((new (aref (rmail-mime-entity-display entity) 1)))
@@ -423,7 +424,7 @@ to the tag line."
 	  (insert item)
 	(apply 'insert-button item))))
   (insert "]\n"))
-  
+
 (defun rmail-mime-update-tagline (entity)
   "Update the current tag line for MIME-entity ENTITY."
   (let ((inhibit-read-only t)
@@ -1140,7 +1141,7 @@ modified."
 
       ;; Hide headers and handle the part.
       (put-text-property (point-min) (point-max) 'rmail-mime-entity
-			 (rmail-mime-entity 
+			 (rmail-mime-entity
 			 content-type content-disposition
 			 content-transfer-encoding
 			 (vector (vector 'raw nil 'raw) (vector 'raw nil 'raw))
@@ -1353,7 +1354,7 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
 			 (re-search-forward "^$" nil 'move) (point)))
 	   (body-end (point-max))
 	   (entity (rmail-mime-parse)))
-      (or 
+      (or
        ;; At first, just search the headers.
        (with-temp-buffer
 	 (insert-buffer-substring rmail-mime-mbox-buffer nil header-end)
@@ -1364,7 +1365,7 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
        (if (and entity
 		(let* ((content-type (rmail-mime-entity-type entity))
 		       (charset (cdr (assq 'charset (cdr content-type)))))
-		  (or (not (string-match "text/.*" (car content-type))) 
+		  (or (not (string-match "text/.*" (car content-type)))
 		      (and charset
 			   (not (string= (downcase charset) "us-ascii"))))))
 	   ;; Search the decoded MIME message.