comparison lisp/mail/rmail.el @ 112098:40af77a50adc

Merge changes from emacs-23 branch

112045:52100bac91db

	      end (rmail-msgend msg))
	(when (> (- end beg) rmail-show-message-verbose-min)
	  (message "Showing message %d" msg))
	(narrow-to-region beg end)
	(goto-char beg)
	(if (and rmail-enable-mime
		 (re-search-forward "mime-version: 1.0" nil t))
	    (let ((rmail-buffer mbox-buf)
		  (rmail-view-buffer view-buf))
	      (funcall rmail-show-mime-function))
	(setq body-start (search-forward "\n\n" nil t))
	(narrow-to-region beg (point))
	(goto-char beg)
	(save-excursion
	  (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
	      (setq coding-system (intern (match-string 1)))
	    (setq coding-system (rmail-get-coding-system))))
	(setq character-coding (mail-fetch-field "content-transfer-encoding")
	      is-text-message (rmail-is-text-p))
	(if character-coding
	    (setq character-coding (downcase character-coding)))
	(narrow-to-region beg end)
	;; Decode the message body into an empty view buffer using a
	;; unibyte temporary buffer where the character decoding takes
	;; place.
	(with-current-buffer rmail-view-buffer
	  (erase-buffer))
	(if (null character-coding)
	    ;; Do it directly since that is fast.
	    (rmail-decode-region body-start end coding-system view-buf)
	  ;; Can this be done directly, skipping the temp buffer?
	  (with-temp-buffer
	    (set-buffer-multibyte nil)
	    (insert-buffer-substring mbox-buf body-start end)
	    (cond
	     ((string= character-coding "quoted-printable")
	      ;; See bug#5441.
	      (or (mail-unquote-printable-region (point-min) (point-max)
						 nil t 'unibyte)
		  (message "Malformed MIME quoted-printable message")))
	     ((and (string= character-coding "base64") is-text-message)
	      (condition-case err
		  (base64-decode-region (point-min) (point-max))
		(error (message "%s" (cdr err)))))
	     ((eq character-coding 'uuencode)
	      (error "uuencoded messages are not supported yet"))
	     (t))
	    (rmail-decode-region (point-min) (point-max)
				 coding-system view-buf))))
	(with-current-buffer rmail-view-buffer
	  ;; We give the view buffer a buffer-local value of
	  ;; rmail-header-style based on the binding in effect when
	  ;; this function is called; `rmail-toggle-headers' can
	  ;; inspect this value to determine how to toggle.
	  (set (make-local-variable 'rmail-header-style) header-style)
	  ;; Unquote quoted From lines
	  (goto-char (point-min))
	  (while (re-search-forward "^>+From " nil t)
	    (beginning-of-line)
	    (delete-char 1)
	    (forward-line))
	  (goto-char (point-min)))
	;; Copy the headers to the front of the message view buffer.
	(rmail-copy-headers beg end)
	;; Add the separator (blank line) between headers and body;
	;; highlight the message, activate any URL like text and add
	;; special highlighting for and quoted material.
	(with-current-buffer rmail-view-buffer
	  (insert "\n")
	  (goto-char (point-min))
	  ;; Decode the headers according to RFC2047.
	  (save-excursion
	    (search-forward "\n\n" nil 'move)
	    (rfc2047-decode-region (point-min) (point)))
	  (rmail-highlight-headers)
					;(rmail-activate-urls)
					;(rmail-process-quoted-material)
	  )
	;; Update the mode-line with message status information and swap

\(fn N LABELS)" t nil)

;;;***

;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "b1ce015fd919b54cc7b1d0b2155489f9")
;;; Generated autoloads from rmailmm.el

(autoload 'rmail-mime "rmailmm" "\
Process the current Rmail message as a MIME message.
This creates a temporary \"*RMAIL*\" buffer holding a decoded
copy of the message.  Inline content-types are handled according to
`rmail-mime-media-type-handlers-alist'.  By default, this
displays text and multipart messages, and offers to download
attachments as specfied by `rmail-mime-attachment-dirs-alist'.

\(fn)" t nil)

;;;***

;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "rmailmsc.el"
;;;;;;  "c3575020691d5769bcf08ecc932304c3")

112098:40af77a50adc

	      end (rmail-msgend msg))
	(when (> (- end beg) rmail-show-message-verbose-min)
	  (message "Showing message %d" msg))
	(narrow-to-region beg end)
	(goto-char beg)
	(with-current-buffer rmail-view-buffer
	  ;; We give the view buffer a buffer-local value of
	  ;; rmail-header-style based on the binding in effect when
	  ;; this function is called; `rmail-toggle-headers' can
	  ;; inspect this value to determine how to toggle.
	  (set (make-local-variable 'rmail-header-style) header-style))
	(if (and rmail-enable-mime
		 (re-search-forward "mime-version: 1.0" nil t))
	    (let ((rmail-buffer mbox-buf)
		  (rmail-view-buffer view-buf))
	      (funcall rmail-show-mime-function))
	  (setq body-start (search-forward "\n\n" nil t))
	  (narrow-to-region beg (point))
	  (goto-char beg)
	  (save-excursion
	    (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
		(setq coding-system (intern (match-string 1)))
	      (setq coding-system (rmail-get-coding-system))))
	  (setq character-coding (mail-fetch-field "content-transfer-encoding")
		is-text-message (rmail-is-text-p))
	  (if character-coding
	      (setq character-coding (downcase character-coding)))
	  (narrow-to-region beg end)
	  ;; Decode the message body into an empty view buffer using a
	  ;; unibyte temporary buffer where the character decoding takes
	  ;; place.
	  (with-current-buffer rmail-view-buffer
	    (erase-buffer))
	  (if (null character-coding)
	      ;; Do it directly since that is fast.
	      (rmail-decode-region body-start end coding-system view-buf)
	    ;; Can this be done directly, skipping the temp buffer?
	    (with-temp-buffer
	      (set-buffer-multibyte nil)
	      (insert-buffer-substring mbox-buf body-start end)
	      (cond
	       ((string= character-coding "quoted-printable")
		;; See bug#5441.
		(or (mail-unquote-printable-region (point-min) (point-max)
						   nil t 'unibyte)
		    (message "Malformed MIME quoted-printable message")))
	       ((and (string= character-coding "base64") is-text-message)
		(condition-case err
		    (base64-decode-region (point-min) (point-max))
		  (error (message "%s" (cdr err)))))
	       ((eq character-coding 'uuencode)
		(error "uuencoded messages are not supported yet"))
	       (t))
	      (rmail-decode-region (point-min) (point-max)
				   coding-system view-buf)))
	  (with-current-buffer rmail-view-buffer
	    ;; Prepare the separator (blank line) before the body.
	    (goto-char (point-min))
	    (insert "\n")
	    ;; Unquote quoted From lines
	    (while (re-search-forward "^>+From " nil t)
	      (beginning-of-line)
	      (delete-char 1)
	      (forward-line))
	    (goto-char (point-min)))
	  ;; Copy the headers to the front of the message view buffer.
	  (rmail-copy-headers beg end))
	;; highlight the message, activate any URL like text and add
	;; special highlighting for and quoted material.
	(with-current-buffer rmail-view-buffer
	  (goto-char (point-min))
	  (rmail-highlight-headers)
					;(rmail-activate-urls)
					;(rmail-process-quoted-material)
	  )
	;; Update the mode-line with message status information and swap

\(fn N LABELS)" t nil)

;;;***

;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "5767ec9a393ef5ff12bc1a14d55c949e")
;;; Generated autoloads from rmailmm.el

(autoload 'rmail-mime "rmailmm" "\
Toggle displaying of a MIME message.

The actualy behavior depends on the value of `rmail-enable-mime'.

If `rmail-enable-mime' is t (default), this command change the
displaying of a MIME message between decoded presentation form
and raw data.

With ARG, toggle the displaying of the current MIME entity only.

If `rmail-enable-mime' is nil, this creates a temporary
\"*RMAIL*\" buffer holding a decoded copy of the message.  Inline
content-types are handled according to
`rmail-mime-media-type-handlers-alist'.  By default, this
displays text and multipart messages, and offers to download
attachments as specfied by `rmail-mime-attachment-dirs-alist'.

\(fn &optional ARG)" t nil)

;;;***

;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "rmailmsc.el"
;;;;;;  "c3575020691d5769bcf08ecc932304c3")