lisp/gnus/mml.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
37   (autoload 'gnus-setup-posting-charset "gnus-msg")
38   (autoload 'gnus-add-minor-mode "gnus-ems")
39   (autoload 'gnus-make-local-hook "gnus-util")
46 (defvar gnus-article-mime-handles)
47 (defvar gnus-mouse-2)
48 (defvar gnus-newsrc-hashtb)
73 (defcustom mml-insert-mime-headers-always nil
144 and `mml-insert-mime-headers-always' is nil.  The value will be bound
145 to \"message/rfc822\" when encoding an article to be forwarded as a MIME
236 			 (mm-find-mime-charset-region point (point)
281       (let ((current (or (mm-mime-charset (mm-charset-after))
285 	  (setq charset (mm-mime-charset (mm-charset-after)))
401 (defun mml-generate-mime ()
410 	    (mml-generate-mime-1 (car cont))
411 	  (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed"))
415 (defun mml-generate-mime-1 (cont)
465 			  ;; when encoding an article to be forwarded.
467 		      (mml-to-mime))
490 			;; Indicate that `mml-insert-mime-headers' should
498 		(mml-insert-mime-headers cont type charset encoding flowed)
523 	    (mml-insert-mime-headers cont type charset encoding nil)
591 		    (mml-generate-mime-1 part)
662 (defun mml-insert-mime-headers (cont type charset encoding flowed)
671 	      mml-insert-mime-headers-always)
755 (defun mime-to-mml (&optional handles)
769       (mml-insert-mime handles)
770     (mml-insert-mime handles t))
780 (defun mml-to-mime ()
791 (defun mml-insert-mime (handle &optional no-markup)
801 	      (mime-to-mml)))))
813       (mapcar 'mml-insert-mime (cdr handle))
819 	(if (eq charset 'gnus-decoded)
989 See Info node `(emacs-mime)Composing'.
1031 		  (mapcar 'list (mailcap-mime-types)))))
1222   "Insert a Mail-Followup-To header before previewing an article.
1240 	   (message-posting-charset (or (gnus-setup-posting-charset
1249       (when (boundp 'gnus-buffers)
1250 	(push (current-buffer) gnus-buffers))
1265 	(mml-to-mime))
1273 	(let ((gnus-newsgroup-charset (car message-posting-charset))
1274 	      gnus-article-prepare-hook gnus-original-article-buffer)
1275 	  (run-hooks 'gnus-article-decode-hook)
1276 	  (let ((gnus-newsgroup-name "dummy")
1277 		(gnus-newsrc-hashtb (or gnus-newsrc-hashtb
1278 					(gnus-make-hashtable 5))))
1279 	    (gnus-article-prepare-display))))
1280       ;; Disable article-mode-map.
1282       (gnus-make-local-hook 'kill-buffer-hook)
1285 		  (mm-destroy-parts gnus-article-mime-handles)) nil t)
1293       (local-set-key gnus-mouse-2