/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by monnier, Fri Jan 28 16:27:25 2005 UTC revision 1.71 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 135  mailbox format." Line 135  mailbox format."
135    
136  (defcustom message-fcc-externalize-attachments nil  (defcustom message-fcc-externalize-attachments nil
137    "If non-nil, attachments are included as external parts in Fcc copies."    "If non-nil, attachments are included as external parts in Fcc copies."
138    :version "21.4"    :version "22.1"
139    :type 'boolean    :type 'boolean
140    :group 'message-sending)    :group 'message-sending)
141    
# Line 175  Otherwise, most addresses look like `ang Line 175  Otherwise, most addresses look like `ang
175    
176  (defcustom message-insert-canlock t  (defcustom message-insert-canlock t
177    "Whether to insert a Cancel-Lock header in news postings."    "Whether to insert a Cancel-Lock header in news postings."
178    :version "21.4"    :version "22.1"
179    :group 'message-headers    :group 'message-headers
180    :type 'boolean)    :type 'boolean)
181    
# Line 204  Checks include `subject-cmsg', `multiple Line 204  Checks include `subject-cmsg', `multiple
204    "*Headers to be generated or prompted for when sending a message.    "*Headers to be generated or prompted for when sending a message.
205  Also see `message-required-news-headers' and  Also see `message-required-news-headers' and
206  `message-required-mail-headers'."  `message-required-mail-headers'."
207    :version "21.4"    :version "22.1"
208    :group 'message-news    :group 'message-news
209    :group 'message-headers    :group 'message-headers
210    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
# Line 212  Also see `message-required-news-headers' Line 212  Also see `message-required-news-headers'
212    
213  (defcustom message-draft-headers '(References From)  (defcustom message-draft-headers '(References From)
214    "*Headers to be generated when saving a draft message."    "*Headers to be generated when saving a draft message."
215    :version "21.4"    :version "22.1"
216    :group 'message-news    :group 'message-news
217    :group 'message-headers    :group 'message-headers
218    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
# Line 300  the user what do do.  In this case, the Line 300  the user what do do.  In this case, the
300  `message-subject-trailing-was-query' is t, always strip the trailing  `message-subject-trailing-was-query' is t, always strip the trailing
301  old subject.  In this case, `message-subject-trailing-was-regexp' is  old subject.  In this case, `message-subject-trailing-was-regexp' is
302  used."  used."
303    :version "21.4"    :version "22.1"
304    :type '(choice (const :tag "never" nil)    :type '(choice (const :tag "never" nil)
305                   (const :tag "always strip" t)                   (const :tag "always strip" t)
306                   (const ask))                   (const ask))
# Line 317  the variable is t instead of `ask', use Line 317  the variable is t instead of `ask', use
317  `message-subject-trailing-was-regexp' instead.  `message-subject-trailing-was-regexp' instead.
318    
319  It is okay to create some false positives here, as the user is asked."  It is okay to create some false positives here, as the user is asked."
320    :version "21.4"    :version "22.1"
321    :group 'message-various    :group 'message-various
322    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
323    :type 'regexp)    :type 'regexp)
# Line 330  If `message-subject-trailing-was-query' Line 330  If `message-subject-trailing-was-query'
330  matched against `message-subject-trailing-was-regexp' in  matched against `message-subject-trailing-was-regexp' in
331  `message-strip-subject-trailing-was'.  You should use a regexp creating very  `message-strip-subject-trailing-was'.  You should use a regexp creating very
332  few false positives here."  few false positives here."
333    :version "21.4"    :version "22.1"
334    :group 'message-various    :group 'message-various
335    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
336    :type 'regexp)    :type 'regexp)
# Line 343  few false positives here." Line 343  few false positives here."
343  (defcustom message-mark-insert-begin  (defcustom message-mark-insert-begin
344    "--8<---------------cut here---------------start------------->8---\n"    "--8<---------------cut here---------------start------------->8---\n"
345    "How to mark the beginning of some inserted text."    "How to mark the beginning of some inserted text."
346    :version "21.4"    :version "22.1"
347    :type 'string    :type 'string
348    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
349    :group 'message-various)    :group 'message-various)
# Line 352  few false positives here." Line 352  few false positives here."
352  (defcustom message-mark-insert-end  (defcustom message-mark-insert-end
353    "--8<---------------cut here---------------end--------------->8---\n"    "--8<---------------cut here---------------end--------------->8---\n"
354    "How to mark the end of some inserted text."    "How to mark the end of some inserted text."
355    :version "21.4"    :version "22.1"
356    :type 'string    :type 'string
357    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
358    :group 'message-various)    :group 'message-various)
# Line 362  few false positives here." Line 362  few false positives here."
362    "X-No-Archive: Yes\n"    "X-No-Archive: Yes\n"
363    "Header to insert when you don't want your article to be archived.    "Header to insert when you don't want your article to be archived.
364  Archives \(such as groups.google.com\) respect this header."  Archives \(such as groups.google.com\) respect this header."
365    :version "21.4"    :version "22.1"
366    :type 'string    :type 'string
367    :link '(custom-manual "(message)Header Commands")    :link '(custom-manual "(message)Header Commands")
368    :group 'message-various)    :group 'message-various)
# Line 372  Archives \(such as groups.google.com\) r Line 372  Archives \(such as groups.google.com\) r
372    "X-No-Archive: Yes - save http://groups.google.com/"    "X-No-Archive: Yes - save http://groups.google.com/"
373    "Note to insert why you wouldn't want this posting archived.    "Note to insert why you wouldn't want this posting archived.
374  If nil, don't insert any text in the body."  If nil, don't insert any text in the body."
375    :version "21.4"    :version "22.1"
376    :type '(radio string (const nil))    :type '(radio string (const nil))
377    :link '(custom-manual "(message)Header Commands")    :link '(custom-manual "(message)Header Commands")
378    :group 'message-various)    :group 'message-various)
# Line 391  If nil, don't insert any text in the bod Line 391  If nil, don't insert any text in the bod
391  If nil, `message-cross-post-followup-to' will only do a followup.  Note that  If nil, `message-cross-post-followup-to' will only do a followup.  Note that
392  you can explicitly override this setting by calling  you can explicitly override this setting by calling
393  `message-cross-post-followup-to' with a prefix."  `message-cross-post-followup-to' with a prefix."
394    :version "21.4"    :version "22.1"
395    :type 'boolean    :type 'boolean
396    :group 'message-various)    :group 'message-various)
397    
# Line 399  you can explicitly override this setting Line 399  you can explicitly override this setting
399  (defcustom message-cross-post-note  (defcustom message-cross-post-note
400    "Crosspost & Followup-To: "    "Crosspost & Followup-To: "
401    "Note to insert before signature to notify of cross-post and follow-up."    "Note to insert before signature to notify of cross-post and follow-up."
402    :version "21.4"    :version "22.1"
403    :type 'string    :type 'string
404    :group 'message-various)    :group 'message-various)
405    
# Line 407  you can explicitly override this setting Line 407  you can explicitly override this setting
407  (defcustom message-followup-to-note  (defcustom message-followup-to-note
408    "Followup-To: "    "Followup-To: "
409    "Note to insert before signature to notify of follow-up only."    "Note to insert before signature to notify of follow-up only."
410    :version "21.4"    :version "22.1"
411    :type 'string    :type 'string
412    :group 'message-various)    :group 'message-various)
413    
# Line 418  you can explicitly override this setting Line 418  you can explicitly override this setting
418  The function will be called with four arguments.  The function should not only  The function will be called with four arguments.  The function should not only
419  insert a note, but also ensure old notes are deleted.  See the documentation  insert a note, but also ensure old notes are deleted.  See the documentation
420  for `message-cross-post-insert-note'."  for `message-cross-post-insert-note'."
421    :version "21.4"    :version "22.1"
422    :type 'function    :type 'function
423    :group 'message-various)    :group 'message-various)
424    
# Line 586  Done before generating the new subject o Line 586  Done before generating the new subject o
586                  non-word-constituents                  non-word-constituents
587                  "]\\)+>+\\|[ \t]*[]>|}+]\\)+"))))                  "]\\)+>+\\|[ \t]*[]>|}+]\\)+"))))
588    "*Regexp matching the longest possible citation prefix on a line."    "*Regexp matching the longest possible citation prefix on a line."
589    :version "21.4"    :version "22.1"
590    :group 'message-insertion    :group 'message-insertion
591    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
592    :type 'regexp)    :type 'regexp)
# Line 671  always query the user whether to use the Line 671  always query the user whether to use the
671  If nil, always ignore the header.  If it is the symbol `ask', always  If nil, always ignore the header.  If it is the symbol `ask', always
672  query the user whether to use the value.  If it is the symbol `use',  query the user whether to use the value.  If it is the symbol `use',
673  always use the value."  always use the value."
674    :version "21.4"    :version "22.1"
675    :group 'message-interface    :group 'message-interface
676    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
677    :type '(choice (const :tag "ignore" nil)    :type '(choice (const :tag "ignore" nil)
# Line 685  If non-nil, this variable contains a lis Line 685  If non-nil, this variable contains a lis
685  regular expressions to match lists.  These functions can be used in  regular expressions to match lists.  These functions can be used in
686  conjunction with `message-subscribed-regexps' and  conjunction with `message-subscribed-regexps' and
687  `message-subscribed-addresses'."  `message-subscribed-addresses'."
688    :version "21.4"    :version "22.1"
689    :group 'message-interface    :group 'message-interface
690    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
691    :type '(repeat sexp))    :type '(repeat sexp))
# Line 694  conjunction with `message-subscribed-reg Line 694  conjunction with `message-subscribed-reg
694    "*A file containing addresses the user is subscribed to.    "*A file containing addresses the user is subscribed to.
695  If nil, do not look at any files to determine list subscriptions.  If  If nil, do not look at any files to determine list subscriptions.  If
696  non-nil, each line of this file should be a mailing list address."  non-nil, each line of this file should be a mailing list address."
697    :version "21.4"    :version "22.1"
698    :group 'message-interface    :group 'message-interface
699    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
700    :type '(radio file (const nil)))    :type '(radio file (const nil)))
# Line 704  non-nil, each line of this file should b Line 704  non-nil, each line of this file should b
704  If nil, do not use any predefined list subscriptions.  This list of  If nil, do not use any predefined list subscriptions.  This list of
705  addresses can be used in conjunction with  addresses can be used in conjunction with
706  `message-subscribed-address-functions' and `message-subscribed-regexps'."  `message-subscribed-address-functions' and `message-subscribed-regexps'."
707    :version "21.4"    :version "22.1"
708    :group 'message-interface    :group 'message-interface
709    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
710    :type '(repeat string))    :type '(repeat string))
# Line 714  addresses can be used in conjunction wit Line 714  addresses can be used in conjunction wit
714  If nil, do not use any predefined list subscriptions.  This list of  If nil, do not use any predefined list subscriptions.  This list of
715  regular expressions can be used in conjunction with  regular expressions can be used in conjunction with
716  `message-subscribed-address-functions' and `message-subscribed-addresses'."  `message-subscribed-address-functions' and `message-subscribed-addresses'."
717    :version "21.4"    :version "22.1"
718    :group 'message-interface    :group 'message-interface
719    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
720    :type '(repeat regexp))    :type '(repeat regexp))
# Line 724  regular expressions can be used in conju Line 724  regular expressions can be used in conju
724  If it is the symbol `always', the posting is allowed.  If it is the  If it is the symbol `always', the posting is allowed.  If it is the
725  symbol `never', the posting is not allowed.  If it is the symbol  symbol `never', the posting is not allowed.  If it is the symbol
726  `ask', you are prompted."  `ask', you are prompted."
727    :version "21.4"    :version "22.1"
728    :group 'message-interface    :group 'message-interface
729    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
730    :type '(choice (const always)    :type '(choice (const always)
# Line 742  Doing so would be even more evil than le Line 742  Doing so would be even more evil than le
742    "*Envelope-from when sending mail with sendmail.    "*Envelope-from when sending mail with sendmail.
743  If this is nil, use `user-mail-address'.  If it is the symbol  If this is nil, use `user-mail-address'.  If it is the symbol
744  `header', use the From: header of the message."  `header', use the From: header of the message."
745    :version "21.4"    :version "22.1"
746    :type '(choice (string :tag "From name")    :type '(choice (string :tag "From name")
747                   (const :tag "Use From: header from message" header)                   (const :tag "Use From: header from message" header)
748                   (const :tag "Use `user-mail-address'" nil))                   (const :tag "Use `user-mail-address'" nil))
# Line 856  the signature is inserted." Line 856  the signature is inserted."
856      (set-keymap-parent map minibuffer-local-map)      (set-keymap-parent map minibuffer-local-map)
857      map)      map)
858    "Keymap for `message-read-from-minibuffer'."    "Keymap for `message-read-from-minibuffer'."
859    :version "21.4")    :version "22.1")
860    
861  ;;;###autoload  ;;;###autoload
862  (defcustom message-citation-line-function 'message-insert-citation-line  (defcustom message-citation-line-function 'message-insert-citation-line
# Line 883  See also `message-yank-cited-prefix'." Line 883  See also `message-yank-cited-prefix'."
883    "*Prefix inserted on cited or empty lines of yanked messages.    "*Prefix inserted on cited or empty lines of yanked messages.
884  Fix `message-cite-prefix-regexp' if it is set to an abnormal value.  Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
885  See also `message-yank-prefix'."  See also `message-yank-prefix'."
886    :version "21.4"    :version "22.1"
887    :type 'string    :type 'string
888    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
889    :group 'message-insertion)    :group 'message-insertion)
# Line 940  If nil, don't insert a signature." Line 940  If nil, don't insert a signature."
940  ;;;###autoload  ;;;###autoload
941  (defcustom message-signature-insert-empty-line t  (defcustom message-signature-insert-empty-line t
942    "*If non-nil, insert an empty line before the signature separator."    "*If non-nil, insert an empty line before the signature separator."
943    :version "21.4"    :version "22.1"
944    :type 'boolean    :type 'boolean
945    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
946    :group 'message-insertion)    :group 'message-insertion)
# Line 1121  candidates: Line 1121  candidates:
1121    "Regexp of headers to be hidden when composing new messages.    "Regexp of headers to be hidden when composing new messages.
1122  This can also be a list of regexps to match headers.  Or a list  This can also be a list of regexps to match headers.  Or a list
1123  starting with `not' and followed by regexps."  starting with `not' and followed by regexps."
1124    :version "21.4"    :version "22.1"
1125    :group 'message    :group 'message
1126    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
1127    :type '(repeat regexp))    :type '(repeat regexp))
# Line 1397  subaddresses.  So if the first address a Line 1397  subaddresses.  So if the first address a
1397  for a message, the subaddresses will be removed (if present) before  for a message, the subaddresses will be removed (if present) before
1398  the mail is sent.  All addresses in this structure should be  the mail is sent.  All addresses in this structure should be
1399  downcased."  downcased."
1400    :version "21.4"    :version "22.1"
1401    :group 'message-headers    :group 'message-headers
1402    :type '(repeat (repeat string)))    :type '(repeat (repeat string)))
1403    
# Line 1405  downcased." Line 1405  downcased."
1405    "Like `mail-user-agent'.    "Like `mail-user-agent'.
1406  Except if it is nil, use Gnus native MUA; if it is t, use  Except if it is nil, use Gnus native MUA; if it is t, use
1407  `mail-user-agent'."  `mail-user-agent'."
1408    :version "21.4"    :version "22.1"
1409    :type '(radio (const :tag "Gnus native"    :type '(radio (const :tag "Gnus native"
1410                         :format "%t\n"                         :format "%t\n"
1411                         nil)                         nil)
# Line 1429  If this variable is non-nil, pose the qu Line 1429  If this variable is non-nil, pose the qu
1429  recipients?\" before a wide reply to multiple recipients.  If the user  recipients?\" before a wide reply to multiple recipients.  If the user
1430  answers yes, reply to all recipients as usual.  If the user answers  answers yes, reply to all recipients as usual.  If the user answers
1431  no, only reply back to the author."  no, only reply back to the author."
1432    :version "21.4"    :version "22.1"
1433    :group 'message-headers    :group 'message-headers
1434    :link '(custom-manual "(message)Wide Reply")    :link '(custom-manual "(message)Wide Reply")
1435    :type 'boolean)    :type 'boolean)
1436    
1437  (defcustom message-user-fqdn nil  (defcustom message-user-fqdn nil
1438    "*Domain part of Messsage-Ids."    "*Domain part of Messsage-Ids."
1439    :version "21.4"    :version "22.1"
1440    :group 'message-headers    :group 'message-headers
1441    :link '(custom-manual "(message)News Headers")    :link '(custom-manual "(message)News Headers")
1442    :type '(radio (const :format "%v  " nil)    :type '(radio (const :format "%v  " nil)
# Line 1448  no, only reply back to the author." Line 1448  no, only reply back to the author."
1448                                   (executable-find idna-program)                                   (executable-find idna-program)
1449                                   'ask)                                   'ask)
1450    "Whether to encode non-ASCII in domain names into ASCII according to IDNA."    "Whether to encode non-ASCII in domain names into ASCII according to IDNA."
1451    :version "21.4"    :version "22.1"
1452    :group 'message-headers    :group 'message-headers
1453    :link '(custom-manual "(message)IDNA")    :link '(custom-manual "(message)IDNA")
1454    :type '(choice (const :tag "Ask" ask)    :type '(choice (const :tag "Ask" ask)
# Line 1574  no, only reply back to the author." Line 1574  no, only reply back to the author."
1574            "\\)")            "\\)")
1575    "Regular expression that matches a valid FQDN."    "Regular expression that matches a valid FQDN."
1576    ;; see also: gnus-button-valid-fqdn-regexp    ;; see also: gnus-button-valid-fqdn-regexp
1577    :version "21.4"    :version "22.1"
1578    :group 'message-headers    :group 'message-headers
1579    :type 'regexp)    :type 'regexp)
1580    
# Line 2384  these properties from the message compos Line 2384  these properties from the message compos
2384  packages requires these properties to be present in order to work.  packages requires these properties to be present in order to work.
2385  If you use one of these packages, turn this option off, and hope the  If you use one of these packages, turn this option off, and hope the
2386  message composition doesn't break too bad."  message composition doesn't break too bad."
2387    :version "21.4"    :version "22.1"
2388    :group 'message-various    :group 'message-various
2389    :link '(custom-manual "(message)Various Message Variables")    :link '(custom-manual "(message)Various Message Variables")
2390    :type 'boolean)    :type 'boolean)
# Line 2731  prefix FORCE is given." Line 2731  prefix FORCE is given."
2731  E.g., if this list contains a member list with elements `Cc' and `To',  E.g., if this list contains a member list with elements `Cc' and `To',
2732  then `message-carefully-insert-headers' will not insert a `To' header  then `message-carefully-insert-headers' will not insert a `To' header
2733  when the message is already `Cc'ed to the recipient."  when the message is already `Cc'ed to the recipient."
2734    :version "21.4"    :version "22.1"
2735    :group 'message-headers    :group 'message-headers
2736    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
2737    :type '(repeat sexp))    :type '(repeat sexp))
# Line 5176  Headers already prepared in the buffer a Line 5176  Headers already prepared in the buffer a
5176  If the current line has `message-yank-prefix', insert it on the new line."  If the current line has `message-yank-prefix', insert it on the new line."
5177    (interactive "*")    (interactive "*")
5178    (condition-case nil    (condition-case nil
5179        (split-line message-yank-prefix) ;; Emacs 21.3.50+ supports arg.        (split-line message-yank-prefix) ;; Emacs 22.1+ supports arg.
5180      (error      (error
5181       (split-line))))       (split-line))))
5182        
5183  (defun message-fill-header (header value)  (defun message-fill-header (header value)
5184    (let ((begin (point))    (let ((begin (point))
5185          (fill-column 78)          (fill-column 78)
# Line 5281  than 988 characters long, and if they ar Line 5281  than 988 characters long, and if they ar
5281  (defcustom message-beginning-of-line t  (defcustom message-beginning-of-line t
5282    "Whether \\<message-mode-map>\\[message-beginning-of-line]\    "Whether \\<message-mode-map>\\[message-beginning-of-line]\
5283   goes to beginning of header values."   goes to beginning of header values."
5284    :version "21.4"    :version "22.1"
5285    :group 'message-buffers    :group 'message-buffers
5286    :link '(custom-manual "(message)Movement")    :link '(custom-manual "(message)Movement")
5287    :type 'boolean)    :type 'boolean)
# Line 6593  which specify the range to operate on." Line 6593  which specify the range to operate on."
6593          '("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):"          '("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):"
6594            . message-expand-name))            . message-expand-name))
6595    "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE."    "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE."
6596    :version "21.4"    :version "22.1"
6597    :group 'message    :group 'message
6598    :type '(alist :key-type regexp :value-type function))    :type '(alist :key-type regexp :value-type function))
6599    
6600  (defcustom message-tab-body-function nil  (defcustom message-tab-body-function nil
6601    "*Function to execute when `message-tab' (TAB) is executed in the body.    "*Function to execute when `message-tab' (TAB) is executed in the body.
6602  If nil, the function bound in `text-mode-map' or `global-map' is executed."  If nil, the function bound in `text-mode-map' or `global-map' is executed."
6603    :version "21.4"    :version "22.1"
6604    :group 'message    :group 'message
6605    :link '(custom-manual "(message)Various Commands")    :link '(custom-manual "(message)Various Commands")
6606    :type 'function)    :type 'function)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26