X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmessage.el;h=740bc5ff1aafb7fd00cbdc50f17a9bf46360274f;hb=8047583c8c86a5c6a61bddc27b391042e39e1ce5;hp=06e3f1905faeacd3f06de239f45d51e317de4ec6;hpb=8ca543af8a7e56f1febcd53f0f70b312944ebe83;p=elisp%2Fgnus.git- diff --git a/lisp/message.el b/lisp/message.el index 06e3f19..740bc5f 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -158,6 +158,7 @@ mailbox format." (defcustom message-fcc-externalize-attachments nil "If non-nil, attachments are included as external parts in Fcc copies." + :version "21.4" :type 'boolean :group 'message-sending) @@ -191,6 +192,7 @@ the user what do do. In this case, the subject is matched against `message-subject-trailing-was-query' is t, always strip the trailing old subject. In this case, `message-subject-trailing-was-regexp' is used." + :version "21.4" :type '(choice (const :tag "never" nil) (const :tag "always strip" t) (const ask)) @@ -207,6 +209,7 @@ the variable is t instead of `ask', use `message-subject-trailing-was-regexp' instead. It is okay to create some false positives here, as the user is asked." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) @@ -219,6 +222,7 @@ If `message-subject-trailing-was-query' is set to t, the subject is matched against `message-subject-trailing-was-regexp' in `message-strip-subject-trailing-was'. You should use a regexp creating very few false positives here." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) @@ -231,6 +235,7 @@ few false positives here." (defcustom message-mark-insert-begin "--8<---------------cut here---------------start------------->8---\n" "How to mark the beginning of some inserted text." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) @@ -239,6 +244,7 @@ few false positives here." (defcustom message-mark-insert-end "--8<---------------cut here---------------end--------------->8---\n" "How to mark the end of some inserted text." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) @@ -248,6 +254,7 @@ few false positives here." "X-No-Archive: Yes\n" "Header to insert when you don't want your article to be archived. Archives \(such as groups.google.com\) respect this header." + :version "21.4" :type 'string :link '(custom-manual "(message)Header Commands") :group 'message-various) @@ -257,6 +264,7 @@ Archives \(such as groups.google.com\) respect this header." "X-No-Archive: Yes - save http://groups.google.com/" "Note to insert why you wouldn't want this posting archived. If nil, don't insert any text in the body." + :version "21.4" :type '(radio (string :format "%t: %v\n" :size 0) (const nil)) :link '(custom-manual "(message)Header Commands") @@ -276,6 +284,7 @@ If nil, don't insert any text in the body." If nil, `message-cross-post-followup-to' will only do a followup. Note that you can explicitly override this setting by calling `message-cross-post-followup-to' with a prefix." + :version "21.4" :type 'boolean :group 'message-various) @@ -283,6 +292,7 @@ you can explicitly override this setting by calling (defcustom message-cross-post-note "Crosspost & Followup-To: " "Note to insert before signature to notify of xpost and follow-up." + :version "21.4" :type 'string :group 'message-various) @@ -290,6 +300,7 @@ you can explicitly override this setting by calling (defcustom message-followup-to-note "Followup-To: " "Note to insert before signature to notify of follow-up only." + :version "21.4" :type 'string :group 'message-various) @@ -300,6 +311,7 @@ you can explicitly override this setting by calling The function will be called with four arguments. The function should not only insert a note, but also ensure old notes are deleted. See the documentation for `message-cross-post-insert-note'." + :version "21.4" :type 'function :group 'message-various) @@ -326,7 +338,7 @@ Otherwise, most addresses look like `angles', but they look like (defcustom message-insert-canlock t "Whether to insert a Cancel-Lock header in news postings." - :version "21.3" + :version "21.4" :group 'message-headers :type 'boolean) @@ -355,6 +367,7 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys', "*Headers to be generated or prompted for when sending a message. Also see `message-required-news-headers' and `message-required-mail-headers'." + :version "21.4" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") @@ -362,6 +375,7 @@ Also see `message-required-news-headers' and (defcustom message-draft-headers '(References From) "*Headers to be generated when saving a draft message." + :version "21.4" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") @@ -783,6 +797,7 @@ is never used." If nil, always ignore the header. If it is the symbol `ask', always query the user whether to use the value. If it is t or the symbol `use', always use the value." + :version "21.4" :group 'message-interface :type '(choice (const :tag "ignore" nil) (const :tag "maybe" t) @@ -796,6 +811,7 @@ If non-nil, this variable contains a list of functions which return regular expressions to match lists. These functions can be used in conjunction with `message-subscribed-regexps' and `message-subscribed-addresses'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat sexp)) @@ -804,6 +820,7 @@ conjunction with `message-subscribed-regexps' and "*A file containing addresses the user is subscribed to. If nil, do not look at any files to determine list subscriptions. If non-nil, each line of this file should be a mailing list address." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(radio (file :format "%t: %v\n" :size 0) @@ -814,6 +831,7 @@ non-nil, each line of this file should be a mailing list address." If nil, do not use any predefined list subscriptions. This list of addresses can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-regexps'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat string)) @@ -823,6 +841,7 @@ addresses can be used in conjunction with If nil, do not use any predefined list subscriptions. This list of regular expressions can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-addresses'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat regexp)) @@ -832,6 +851,7 @@ regular expressions can be used in conjunction with If it is the symbol `always', the posting is allowed. If it is the symbol `never', the posting is not allowed. If it is the symbol `ask', you are prompted." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Message Headers") :type '(choice (const always) @@ -1013,6 +1033,7 @@ an article is yanked by the command `message-yank-original' interactively." "*Prefix inserted on cited or empty lines of yanked messages. Fix `message-cite-prefix-regexp' if it is set to an abnormal value. See also `message-yank-prefix'." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) @@ -1081,6 +1102,7 @@ If nil, don't insert a signature." ;;;###autoload (defcustom message-signature-insert-empty-line t "*If non-nil, insert an empty line before the signature separator." + :version "21.4" :type 'boolean :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) @@ -1265,6 +1287,7 @@ candidates: "Regexp of headers to be hidden when composing new messages. This can also be a list of regexps to match headers. Or a list starting with `not' and followed by regexps." + :version "21.4" :group 'message :link '(custom-manual "(message)Message Headers") :type '(repeat regexp)) @@ -1556,6 +1579,7 @@ subaddresses. So if the first address appears in the recipient list for a message, the subaddresses will be removed (if present) before the mail is sent. All addresses in this structure should be downcased." + :version "21.4" :group 'message-headers :type '(repeat (repeat string))) @@ -1563,6 +1587,7 @@ downcased." "Like `mail-user-agent'. Except if it is nil, use Gnus native MUA; if it is t, use `mail-user-agent'." + :version "21.4" :type '(radio (const :tag "Gnus native" :format "%t\n" nil) @@ -1586,7 +1611,7 @@ If this variable is non-nil, pose the question \"Reply to all recipients?\" before a wide reply to multiple recipients. If the user answers yes, reply to all recipients as usual. If the user answers no, only reply back to the author." - :version "21.3" + :version "21.4" :group 'message-headers :link '(custom-manual "(message)Wide Reply") :type 'boolean) @@ -1604,6 +1629,7 @@ no, only reply back to the author." (executable-find idna-program) 'ask) "Whether to encode non-ASCII in domain names into ASCII according to IDNA." + :version "21.4" :group 'message-headers :link '(custom-manual "(message)IDNA") :type '(choice (const :tag "Ask" ask) @@ -1735,6 +1761,7 @@ no, only reply back to the author." "\\)") "Regular expression that matches a valid FQDN." ;; see also: gnus-button-valid-fqdn-regexp + :version "21.4" :group 'message-headers :type 'regexp) @@ -1766,9 +1793,6 @@ no, only reply back to the author." (autoload 'rmail-msg-restore-non-pruned-header "rmail") (autoload 'rmail-output "rmailout")) -(eval-when-compile - (autoload 'sha1 "sha1-el")) - ;;; @@ -1820,7 +1844,7 @@ is used by default." (if (not header) nil (let ((regexp (format "[%s]+" (or separator ","))) - (beg 1) + (beg (point-min)) (first t) quoted elems paren) (with-temp-buffer @@ -2581,6 +2605,7 @@ these properties from the message composition buffer. However, some packages requires these properties to be present in order to work. If you use one of these packages, turn this option off, and hope the message composition doesn't break too bad." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'boolean) @@ -2947,6 +2972,7 @@ prefix FORCE is given." E.g., if this list contains a member list with elements `Cc' and `To', then `message-carefully-insert-headers' will not insert a `To' header when the message is already `Cc'ed to the recipient." + :version "21.4" :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) @@ -3611,7 +3637,7 @@ be added to the \"References\" field." (insert "\n")) (funcall message-citation-line-function)) (when (and x-no-archive - message-cite-articles-with-x-no-archive + (not message-cite-articles-with-x-no-archive) (string-match "yes" x-no-archive)) (undo-boundary) (delete-region (point) (mark t)) @@ -4347,8 +4373,8 @@ to find out how to use this." (case (as-binary-process (apply - 'call-process-region 1 (point-max) message-qmail-inject-program - nil nil nil + 'call-process-region (point-min) (point-max) + message-qmail-inject-program nil nil nil ;; qmail-inject's default behaviour is to look for addresses on the ;; command line; if there're none, it scans the headers. ;; yes, it does The Right Thing w.r.t. Resent-To and it's kin. @@ -4463,7 +4489,7 @@ manual for details." (defun message-canlock-generate () "Return a string that is non-trivial to guess. Do not use this for anything important, it is cryptographically weak." - (require 'sha1-el) + (require 'sha1) (let (sha1-maximum-internal-length) (sha1 (concat (message-unique-id) (format "%x%x%x" (random) (random t) (random)) @@ -5872,6 +5898,7 @@ they are." (defcustom message-beginning-of-line t "Whether \\\\[message-beginning-of-line]\ goes to beginning of header values." + :version "21.4" :group 'message-buffers :link '(custom-manual "(message)Movement") :type 'boolean) @@ -7328,6 +7355,7 @@ This variable is semi-obsolete, set it as nil and use (defcustom message-tab-body-function nil "*Function to execute when `message-tab' (TAB) is executed in the body. If nil, the function bound in `text-mode-map' or `global-map' is executed." + :version "21.4" :group 'message :link '(custom-manual "(message)Various Commands") :type 'function)