diff options
author | Miles Bader <[email protected]> | 2007-12-29 02:39:17 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2007-12-29 02:39:17 +0000 |
commit | a0c92ed92d3d62d4926dafb1d595d87843df4688 (patch) | |
tree | 78f12dd6f97a0f96b846fbf08e3f8ce39a701f8e /lisp/gnus/mml.el | |
parent | 9aeb99f00a02c695b14f2ee349141eb9641ca6da (diff) | |
parent | 870356897e927f380841268667a92b40fb9e6782 (diff) |
Merge from emacs--devo--0
Revision: [email protected]/emacs--unicode--0--patch-306
Diffstat (limited to 'lisp/gnus/mml.el')
-rw-r--r-- | lisp/gnus/mml.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 14dc90940c..c9dee3fc71 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -47,6 +47,11 @@ (autoload 'message-posting-charset "message") (autoload 'dnd-get-local-file-name "dnd")) +(autoload 'message-options-set "message") +(autoload 'message-narrow-to-head "message") +(autoload 'message-in-body-p "message") +(autoload 'message-mail-p "message") + (defvar gnus-article-mime-handles) (defvar gnus-mouse-2) (defvar gnus-newsrc-hashtb) @@ -835,6 +840,10 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." ;;; Transforming MIME to MML ;;; +;; message-narrow-to-head autoloads message. +(declare-function message-remove-header "message" + (header &optional is-regexp first reverse)) + (defun mime-to-mml (&optional handles) "Translate the current buffer (which should be a message) into MML. If HANDLES is non-nil, use it instead reparsing the buffer." @@ -860,6 +869,9 @@ If HANDLES is non-nil, use it instead reparsing the buffer." (message-remove-header "Content-Disposition") (message-remove-header "Content-Transfer-Encoding"))) +(autoload 'message-encode-message-body "message") +(declare-function message-narrow-to-headers-or-head "message" ()) + (defun mml-to-mime () "Translate the current buffer from MML to MIME." (message-encode-message-body) @@ -1307,6 +1319,11 @@ TYPE is the MIME type to use." (mml-insert-tag 'part 'type type 'disposition "inline") (forward-line -1)) +(declare-function message-subscribed-p "message" ()) +(declare-function message-make-mail-followup-to "message" + (&optional only-show-subscribed)) +(declare-function message-position-on-field "message" (header &rest afters)) + (defun mml-preview-insert-mail-followup-to () "Insert a Mail-Followup-To header before previewing an article. Should be adopted if code in `message-send-mail' is changed." @@ -1324,6 +1341,11 @@ Should be adopted if code in `message-send-mail' is changed." (declare-function widget-event-point "wid-edit" (event)) ;; If gnus-buffer-configuration is bound this is loaded. (declare-function gnus-configure-windows "gnus-win" (setting &optional force)) +;; Called after message-mail-p, which autoloads message. +(declare-function message-news-p "message" ()) +(declare-function message-options-set-recipient "message" ()) +(declare-function message-generate-headers "message" (headers)) +(declare-function message-sort-headers "message" ()) (defun mml-preview (&optional raw) "Display current buffer with Gnus, in a new buffer. |