/[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.60 by monnier, Tue Sep 7 03:47:46 2004 UTC revision 1.61 by miles, Mon Sep 20 12:03:04 2004 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"
139    :type 'boolean    :type 'boolean
140    :group 'message-sending)    :group 'message-sending)
141    
# Line 174  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.3"    :version "21.4"
179    :group 'message-headers    :group 'message-headers
180    :type 'boolean)    :type 'boolean)
181    
# Line 203  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"
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 210  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"
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 287  the user what do do.  In this case, the Line 290  the user what do do.  In this case, the
290  `message-subject-trailing-was-query' is t, always strip the trailing  `message-subject-trailing-was-query' is t, always strip the trailing
291  old subject.  In this case, `message-subject-trailing-was-regexp' is  old subject.  In this case, `message-subject-trailing-was-regexp' is
292  used."  used."
293      :version "21.4"
294    :type '(choice (const :tag "never" nil)    :type '(choice (const :tag "never" nil)
295                   (const :tag "always strip" t)                   (const :tag "always strip" t)
296                   (const ask))                   (const ask))
# Line 303  the variable is t instead of `ask', use Line 307  the variable is t instead of `ask', use
307  `message-subject-trailing-was-regexp' instead.  `message-subject-trailing-was-regexp' instead.
308    
309  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."
310      :version "21.4"
311    :group 'message-various    :group 'message-various
312    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
313    :type 'regexp)    :type 'regexp)
# Line 315  If `message-subject-trailing-was-query' Line 320  If `message-subject-trailing-was-query'
320  matched against `message-subject-trailing-was-regexp' in  matched against `message-subject-trailing-was-regexp' in
321  `message-strip-subject-trailing-was'.  You should use a regexp creating very  `message-strip-subject-trailing-was'.  You should use a regexp creating very
322  few false positives here."  few false positives here."
323      :version "21.4"
324    :group 'message-various    :group 'message-various
325    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
326    :type 'regexp)    :type 'regexp)
# Line 327  few false positives here." Line 333  few false positives here."
333  (defcustom message-mark-insert-begin  (defcustom message-mark-insert-begin
334    "--8<---------------cut here---------------start------------->8---\n"    "--8<---------------cut here---------------start------------->8---\n"
335    "How to mark the beginning of some inserted text."    "How to mark the beginning of some inserted text."
336      :version "21.4"
337    :type 'string    :type 'string
338    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
339    :group 'message-various)    :group 'message-various)
# Line 335  few false positives here." Line 342  few false positives here."
342  (defcustom message-mark-insert-end  (defcustom message-mark-insert-end
343    "--8<---------------cut here---------------end--------------->8---\n"    "--8<---------------cut here---------------end--------------->8---\n"
344    "How to mark the end of some inserted text."    "How to mark the end of some inserted text."
345      :version "21.4"
346    :type 'string    :type 'string
347    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
348    :group 'message-various)    :group 'message-various)
# Line 344  few false positives here." Line 352  few false positives here."
352    "X-No-Archive: Yes\n"    "X-No-Archive: Yes\n"
353    "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.
354  Archives \(such as groups.google.com\) respect this header."  Archives \(such as groups.google.com\) respect this header."
355      :version "21.4"
356    :type 'string    :type 'string
357    :link '(custom-manual "(message)Header Commands")    :link '(custom-manual "(message)Header Commands")
358    :group 'message-various)    :group 'message-various)
# Line 353  Archives \(such as groups.google.com\) r Line 362  Archives \(such as groups.google.com\) r
362    "X-No-Archive: Yes - save http://groups.google.com/"    "X-No-Archive: Yes - save http://groups.google.com/"
363    "Note to insert why you wouldn't want this posting archived.    "Note to insert why you wouldn't want this posting archived.
364  If nil, don't insert any text in the body."  If nil, don't insert any text in the body."
365      :version "21.4"
366    :type '(radio (string :format "%t: %v\n" :size 0)    :type '(radio (string :format "%t: %v\n" :size 0)
367                  (const nil))                  (const nil))
368    :link '(custom-manual "(message)Header Commands")    :link '(custom-manual "(message)Header Commands")
# Line 372  If nil, don't insert any text in the bod Line 382  If nil, don't insert any text in the bod
382  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
383  you can explicitly override this setting by calling  you can explicitly override this setting by calling
384  `message-cross-post-followup-to' with a prefix."  `message-cross-post-followup-to' with a prefix."
385      :version "21.4"
386    :type 'boolean    :type 'boolean
387    :group 'message-various)    :group 'message-various)
388    
# Line 379  you can explicitly override this setting Line 390  you can explicitly override this setting
390  (defcustom message-cross-post-note  (defcustom message-cross-post-note
391    "Crosspost & Followup-To: "    "Crosspost & Followup-To: "
392    "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."
393      :version "21.4"
394    :type 'string    :type 'string
395    :group 'message-various)    :group 'message-various)
396    
# Line 386  you can explicitly override this setting Line 398  you can explicitly override this setting
398  (defcustom message-followup-to-note  (defcustom message-followup-to-note
399    "Followup-To: "    "Followup-To: "
400    "Note to insert before signature to notify of follow-up only."    "Note to insert before signature to notify of follow-up only."
401      :version "21.4"
402    :type 'string    :type 'string
403    :group 'message-various)    :group 'message-various)
404    
# Line 396  you can explicitly override this setting Line 409  you can explicitly override this setting
409  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
410  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
411  for `message-cross-post-insert-note'."  for `message-cross-post-insert-note'."
412      :version "21.4"
413    :type 'function    :type 'function
414    :group 'message-various)    :group 'message-various)
415    
# Line 638  always query the user whether to use the Line 652  always query the user whether to use the
652  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
653  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',
654  always use the value."  always use the value."
655      :version "21.4"
656    :group 'message-interface    :group 'message-interface
657    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
658    :type '(choice (const :tag "ignore" nil)    :type '(choice (const :tag "ignore" nil)
# Line 651  If non-nil, this variable contains a lis Line 666  If non-nil, this variable contains a lis
666  regular expressions to match lists.  These functions can be used in  regular expressions to match lists.  These functions can be used in
667  conjunction with `message-subscribed-regexps' and  conjunction with `message-subscribed-regexps' and
668  `message-subscribed-addresses'."  `message-subscribed-addresses'."
669      :version "21.4"
670    :group 'message-interface    :group 'message-interface
671    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
672    :type '(repeat sexp))    :type '(repeat sexp))
# Line 659  conjunction with `message-subscribed-reg Line 675  conjunction with `message-subscribed-reg
675    "*A file containing addresses the user is subscribed to.    "*A file containing addresses the user is subscribed to.
676  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
677  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."
678      :version "21.4"
679    :group 'message-interface    :group 'message-interface
680    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
681    :type '(radio (file :format "%t: %v\n" :size 0)    :type '(radio (file :format "%t: %v\n" :size 0)
# Line 669  non-nil, each line of this file should b Line 686  non-nil, each line of this file should b
686  If nil, do not use any predefined list subscriptions.  This list of  If nil, do not use any predefined list subscriptions.  This list of
687  addresses can be used in conjunction with  addresses can be used in conjunction with
688  `message-subscribed-address-functions' and `message-subscribed-regexps'."  `message-subscribed-address-functions' and `message-subscribed-regexps'."
689      :version "21.4"
690    :group 'message-interface    :group 'message-interface
691    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
692    :type '(repeat string))    :type '(repeat string))
# Line 678  addresses can be used in conjunction wit Line 696  addresses can be used in conjunction wit
696  If nil, do not use any predefined list subscriptions.  This list of  If nil, do not use any predefined list subscriptions.  This list of
697  regular expressions can be used in conjunction with  regular expressions can be used in conjunction with
698  `message-subscribed-address-functions' and `message-subscribed-addresses'."  `message-subscribed-address-functions' and `message-subscribed-addresses'."
699      :version "21.4"
700    :group 'message-interface    :group 'message-interface
701    :link '(custom-manual "(message)Mailing Lists")    :link '(custom-manual "(message)Mailing Lists")
702    :type '(repeat regexp))    :type '(repeat regexp))
# Line 687  regular expressions can be used in conju Line 706  regular expressions can be used in conju
706  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
707  symbol `never', the posting is not allowed.  If it is the symbol  symbol `never', the posting is not allowed.  If it is the symbol
708  `ask', you are prompted."  `ask', you are prompted."
709      :version "21.4"
710    :group 'message-interface    :group 'message-interface
711    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
712    :type '(choice (const always)    :type '(choice (const always)
# Line 843  See also `message-yank-cited-prefix'." Line 863  See also `message-yank-cited-prefix'."
863    "*Prefix inserted on cited or empty lines of yanked messages.    "*Prefix inserted on cited or empty lines of yanked messages.
864  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.
865  See also `message-yank-prefix'."  See also `message-yank-prefix'."
866      :version "21.4"
867    :type 'string    :type 'string
868    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
869    :group 'message-insertion)    :group 'message-insertion)
# Line 899  If nil, don't insert a signature." Line 920  If nil, don't insert a signature."
920  ;;;###autoload  ;;;###autoload
921  (defcustom message-signature-insert-empty-line t  (defcustom message-signature-insert-empty-line t
922    "*If non-nil, insert an empty line before the signature separator."    "*If non-nil, insert an empty line before the signature separator."
923      :version "21.4"
924    :type 'boolean    :type 'boolean
925    :link '(custom-manual "(message)Insertion Variables")    :link '(custom-manual "(message)Insertion Variables")
926    :group 'message-insertion)    :group 'message-insertion)
# Line 1079  candidates: Line 1101  candidates:
1101    "Regexp of headers to be hidden when composing new messages.    "Regexp of headers to be hidden when composing new messages.
1102  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
1103  starting with `not' and followed by regexps."  starting with `not' and followed by regexps."
1104      :version "21.4"
1105    :group 'message    :group 'message
1106    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
1107    :type '(repeat regexp))    :type '(repeat regexp))
# Line 1354  subaddresses.  So if the first address a Line 1377  subaddresses.  So if the first address a
1377  for a message, the subaddresses will be removed (if present) before  for a message, the subaddresses will be removed (if present) before
1378  the mail is sent.  All addresses in this structure should be  the mail is sent.  All addresses in this structure should be
1379  downcased."  downcased."
1380      :version "21.4"
1381    :group 'message-headers    :group 'message-headers
1382    :type '(repeat (repeat string)))    :type '(repeat (repeat string)))
1383    
# Line 1361  downcased." Line 1385  downcased."
1385    "Like `mail-user-agent'.    "Like `mail-user-agent'.
1386  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
1387  `mail-user-agent'."  `mail-user-agent'."
1388      :version "21.4"
1389    :type '(radio (const :tag "Gnus native"    :type '(radio (const :tag "Gnus native"
1390                         :format "%t\n"                         :format "%t\n"
1391                         nil)                         nil)
# Line 1384  If this variable is non-nil, pose the qu Line 1409  If this variable is non-nil, pose the qu
1409  recipients?\" before a wide reply to multiple recipients.  If the user  recipients?\" before a wide reply to multiple recipients.  If the user
1410  answers yes, reply to all recipients as usual.  If the user answers  answers yes, reply to all recipients as usual.  If the user answers
1411  no, only reply back to the author."  no, only reply back to the author."
1412    :version "21.3"    :version "21.4"
1413    :group 'message-headers    :group 'message-headers
1414    :link '(custom-manual "(message)Wide Reply")    :link '(custom-manual "(message)Wide Reply")
1415    :type 'boolean)    :type 'boolean)
# Line 1402  no, only reply back to the author." Line 1427  no, only reply back to the author."
1427                                   (executable-find idna-program)                                   (executable-find idna-program)
1428                                   'ask)                                   'ask)
1429    "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."
1430      :version "21.4"
1431    :group 'message-headers    :group 'message-headers
1432    :link '(custom-manual "(message)IDNA")    :link '(custom-manual "(message)IDNA")
1433    :type '(choice (const :tag "Ask" ask)    :type '(choice (const :tag "Ask" ask)
# Line 1527  no, only reply back to the author." Line 1553  no, only reply back to the author."
1553            "\\)")            "\\)")
1554    "Regular expression that matches a valid FQDN."    "Regular expression that matches a valid FQDN."
1555    ;; see also: gnus-button-valid-fqdn-regexp    ;; see also: gnus-button-valid-fqdn-regexp
1556      :version "21.4"
1557    :group 'message-headers    :group 'message-headers
1558    :type 'regexp)    :type 'regexp)
1559    
# Line 2336  these properties from the message compos Line 2363  these properties from the message compos
2363  packages requires these properties to be present in order to work.  packages requires these properties to be present in order to work.
2364  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
2365  message composition doesn't break too bad."  message composition doesn't break too bad."
2366      :version "21.4"
2367    :group 'message-various    :group 'message-various
2368    :link '(custom-manual "(message)Various Message Variables")    :link '(custom-manual "(message)Various Message Variables")
2369    :type 'boolean)    :type 'boolean)
# Line 2680  prefix FORCE is given." Line 2708  prefix FORCE is given."
2708  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',
2709  then `message-carefully-insert-headers' will not insert a `To' header  then `message-carefully-insert-headers' will not insert a `To' header
2710  when the message is already `Cc'ed to the recipient."  when the message is already `Cc'ed to the recipient."
2711      :version "21.4"
2712    :group 'message-headers    :group 'message-headers
2713    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
2714    :type '(repeat sexp))    :type '(repeat sexp))
# Line 5226  than 988 characters long, and if they ar Line 5255  than 988 characters long, and if they ar
5255  (defcustom message-beginning-of-line t  (defcustom message-beginning-of-line t
5256    "Whether \\<message-mode-map>\\[message-beginning-of-line]\    "Whether \\<message-mode-map>\\[message-beginning-of-line]\
5257   goes to beginning of header values."   goes to beginning of header values."
5258      :version "21.4"
5259    :group 'message-buffers    :group 'message-buffers
5260    :link '(custom-manual "(message)Movement")    :link '(custom-manual "(message)Movement")
5261    :type 'boolean)    :type 'boolean)
# Line 6544  which specify the range to operate on." Line 6574  which specify the range to operate on."
6574  (defcustom message-tab-body-function nil  (defcustom message-tab-body-function nil
6575    "*Function to execute when `message-tab' (TAB) is executed in the body.    "*Function to execute when `message-tab' (TAB) is executed in the body.
6576  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."
6577      :version "21.4"
6578    :group 'message    :group 'message
6579    :link '(custom-manual "(message)Various Commands")    :link '(custom-manual "(message)Various Commands")
6580    :type 'function)    :type 'function)

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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