/[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.89 by miles, Wed Sep 28 05:26:01 2005 UTC revision 1.90 by miles, Fri Sep 30 03:03:51 2005 UTC
# Line 1454  no, only reply back to the author." Line 1454  no, only reply back to the author."
1454                                     (file-error))                                     (file-error))
1455                                   (mm-coding-system-p 'utf-8)                                   (mm-coding-system-p 'utf-8)
1456                                   (executable-find idna-program)                                   (executable-find idna-program)
1457                                   'ask)                                   (string= (idna-to-ascii "räksmörgås")
1458    "Whether to encode non-ASCII in domain names into ASCII according to IDNA."                                            "xn--rksmrgs-5wao1o")
1459                                     t)
1460      "Whether to encode non-ASCII in domain names into ASCII according to IDNA.
1461    GNU Libidn, and in particular the elisp package \"idna.el\" and
1462    the external program \"idn\", must be installed for this
1463    functionality to work."
1464    :version "22.1"    :version "22.1"
1465    :group 'message-headers    :group 'message-headers
1466    :link '(custom-manual "(message)IDNA")    :link '(custom-manual "(message)IDNA")
# Line 1807  Leading \"Re: \" is not stripped by this Line 1812  Leading \"Re: \" is not stripped by this
1812    
1813  ;;; Suggested by Jonas Steverud  @  www.dtek.chalmers.se/~d4jonas/  ;;; Suggested by Jonas Steverud  @  www.dtek.chalmers.se/~d4jonas/
1814    
 ;;;###autoload  
1815  (defun message-change-subject (new-subject)  (defun message-change-subject (new-subject)
1816    "Ask for NEW-SUBJECT header, append (was: <Old Subject>)."    "Ask for NEW-SUBJECT header, append (was: <Old Subject>)."
1817    ;; <URL:http://www.landfield.com/usefor/drafts/draft-ietf-usefor-useage--1.02.unpaged>    ;; <URL:http://www.landfield.com/usefor/drafts/draft-ietf-usefor-useage--1.02.unpaged>
# Line 1839  Leading \"Re: \" is not stripped by this Line 1843  Leading \"Re: \" is not stripped by this
1843                                      " (was: "                                      " (was: "
1844                                      old-subject ")\n")))))))))                                      old-subject ")\n")))))))))
1845    
 ;;;###autoload  
1846  (defun message-mark-inserted-region (beg end)  (defun message-mark-inserted-region (beg end)
1847    "Mark some region in the current article with enclosing tags.    "Mark some region in the current article with enclosing tags.
1848  See `message-mark-insert-begin' and `message-mark-insert-end'."  See `message-mark-insert-begin' and `message-mark-insert-end'."
# Line 1851  See `message-mark-insert-begin' and `mes Line 1854  See `message-mark-insert-begin' and `mes
1854      (goto-char beg)      (goto-char beg)
1855      (insert message-mark-insert-begin)))      (insert message-mark-insert-begin)))
1856    
 ;;;###autoload  
1857  (defun message-mark-insert-file (file)  (defun message-mark-insert-file (file)
1858    "Insert FILE at point, marking it with enclosing tags.    "Insert FILE at point, marking it with enclosing tags.
1859  See `message-mark-insert-begin' and `message-mark-insert-end'."  See `message-mark-insert-begin' and `message-mark-insert-end'."
# Line 1864  See `message-mark-insert-begin' and `mes Line 1866  See `message-mark-insert-begin' and `mes
1866      (goto-char p)      (goto-char p)
1867      (insert message-mark-insert-begin)))      (insert message-mark-insert-begin)))
1868    
 ;;;###autoload  
1869  (defun message-add-archive-header ()  (defun message-add-archive-header ()
1870    "Insert \"X-No-Archive: Yes\" in the header and a note in the body.    "Insert \"X-No-Archive: Yes\" in the header and a note in the body.
1871  The note can be customized using `message-archive-note'.  When called with a  The note can be customized using `message-archive-note'.  When called with a
# Line 1884  body, set  `message-archive-note' to nil Line 1885  body, set  `message-archive-note' to nil
1885        (message-add-header message-archive-header)        (message-add-header message-archive-header)
1886        (message-sort-headers)))        (message-sort-headers)))
1887    
 ;;;###autoload  
1888  (defun message-cross-post-followup-to-header (target-group)  (defun message-cross-post-followup-to-header (target-group)
1889    "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.    "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
1890  With prefix-argument just set Follow-Up, don't cross-post."  With prefix-argument just set Follow-Up, don't cross-post."
# Line 1928  With prefix-argument just set Follow-Up, Line 1928  With prefix-argument just set Follow-Up,
1928        (insert (concat "\nFollowup-To: " target-group)))        (insert (concat "\nFollowup-To: " target-group)))
1929    (setq message-cross-post-old-target target-group))    (setq message-cross-post-old-target target-group))
1930    
 ;;;###autoload  
1931  (defun message-cross-post-insert-note (target-group cross-post in-old  (defun message-cross-post-insert-note (target-group cross-post in-old
1932                                                      old-groups)                                                      old-groups)
1933    "Insert a in message body note about a set Followup or Crosspost.    "Insert a in message body note about a set Followup or Crosspost.
# Line 1961  been made to before the user asked for a Line 1960  been made to before the user asked for a
1960          (insert (concat message-followup-to-note target-group "\n"))          (insert (concat message-followup-to-note target-group "\n"))
1961        (insert (concat message-cross-post-note target-group "\n")))))        (insert (concat message-cross-post-note target-group "\n")))))
1962    
 ;;;###autoload  
1963  (defun message-cross-post-followup-to (target-group)  (defun message-cross-post-followup-to (target-group)
1964    "Crossposts message and set Followup-To to TARGET-GROUP.    "Crossposts message and set Followup-To to TARGET-GROUP.
1965  With prefix-argument just set Follow-Up, don't cross-post."  With prefix-argument just set Follow-Up, don't cross-post."
# Line 2003  With prefix-argument just set Follow-Up, Line 2001  With prefix-argument just set Follow-Up,
2001    
2002  ;;; Reduce To: to Cc: or Bcc: header  ;;; Reduce To: to Cc: or Bcc: header
2003    
 ;;;###autoload  
2004  (defun message-reduce-to-to-cc ()  (defun message-reduce-to-to-cc ()
2005   "Replace contents of To: header with contents of Cc: or Bcc: header."   "Replace contents of To: header with contents of Cc: or Bcc: header."
2006   (interactive)   (interactive)

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

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