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") |
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> |
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'." |
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'." |
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 |
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." |
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. |
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." |
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) |