mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(message-options-set, message-narrow-to-head)

Browse Source 
(message-in-body-p, message-mail-p, message-encode-message-body): Autoload.
(message-remove-header, message-narrow-to-headers-or-head)
(message-subscribed-p, message-make-mail-followup-to)
(message-position-on-field, message-news-p)
(message-options-set-recipient, message-generate-headers)
(message-sort-headers): Declare as functions.
This commit is contained in:
Glenn Morris 2007-12-19 02:54:16 +00:00
parent 441f785ca2
commit 541cbf8b1c
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/ChangeLog
View File

@ -1,3 +1,14 @@
2007-12-19 Glenn Morris <rgm@gnu.org>
* mml.el (message-options-set, message-narrow-to-head)
(message-in-body-p, message-mail-p, message-encode-message-body):
Autoload.
(message-remove-header, message-narrow-to-headers-or-head)
(message-subscribed-p, message-make-mail-followup-to)
(message-position-on-field, message-news-p)
(message-options-set-recipient, message-generate-headers)
(message-sort-headers): Declare as functions.
2007-12-15 Reiner Steib <Reiner.Steib@gmx.de>
* gnus-art.el (article-verify-x-pgp-sig): Add reference to X-PGP-Sig

22
lisp/gnus/mml.el
View File

@ -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)
@ -836,6 +841,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."
@ -861,6 +870,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)
@ -1308,6 +1320,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."
@ -1325,6 +1342,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.