1 |
;;; mh-comp.el --- MH-E functions for composing messages |
;;; mh-comp.el --- MH-E functions for composing messages |
2 |
|
|
3 |
;; Copyright (C) 1993, 95, 1997, 2000, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1995, 1997, |
4 |
|
;; 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Bill Wohler <wohler@newt.com> |
;; Author: Bill Wohler <wohler@newt.com> |
7 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
53 |
(defvar mh-identity-menu) |
(defvar mh-identity-menu) |
54 |
|
|
55 |
;;; Autoloads |
;;; Autoloads |
|
(autoload 'Info-goto-node "info") |
|
56 |
(autoload 'mail-mode-fill-paragraph "sendmail") |
(autoload 'mail-mode-fill-paragraph "sendmail") |
57 |
(autoload 'mm-handle-displayed-p "mm-decode") |
(autoload 'mm-handle-displayed-p "mm-decode") |
58 |
|
|
490 |
cc/all sender and all recipients. |
cc/all sender and all recipients. |
491 |
If optional prefix argument INCLUDEP provided, then include the message |
If optional prefix argument INCLUDEP provided, then include the message |
492 |
in the reply using filter `mhl.reply' in your MH directory. |
in the reply using filter `mhl.reply' in your MH directory. |
493 |
If the file named by `mh-repl-formfile' exists, it is used as a skeleton |
If the file named by `mh-repl-formfile' exists, it is used as a skeleton for |
494 |
for the reply. |
the reply. If REPLY-TO is cc or all and you're using either the nmh or GNU |
495 |
|
mailutils variants and the file names by `mh-repl-group-formfile' exists, it |
496 |
|
is used instead. |
497 |
|
|
498 |
See also `mh-send'." |
See also `mh-send'." |
499 |
(interactive (list |
(interactive (list |
1631 |
(defun mh-complete-word (word choices begin end) |
(defun mh-complete-word (word choices begin end) |
1632 |
"Complete WORD at from CHOICES. |
"Complete WORD at from CHOICES. |
1633 |
Any match found replaces the text from BEGIN to END." |
Any match found replaces the text from BEGIN to END." |
1634 |
(let ((completion (try-completion word choices))) |
(let ((completion (try-completion word choices)) |
1635 |
|
(completions-buffer "*Completions*")) |
1636 |
(cond ((eq completion t) |
(cond ((eq completion t) |
1637 |
|
(ignore-errors |
1638 |
|
(kill-buffer completions-buffer)) |
1639 |
(message "Completed: %s" word)) |
(message "Completed: %s" word)) |
1640 |
((null completion) |
((null completion) |
1641 |
|
(ignore-errors |
1642 |
|
(kill-buffer completions-buffer)) |
1643 |
(message "No completion for `%s'" word)) |
(message "No completion for `%s'" word)) |
1644 |
((stringp completion) |
((stringp completion) |
1645 |
(if (equal word completion) |
(if (equal word completion) |
1646 |
(with-output-to-temp-buffer "*Completions*" |
(with-output-to-temp-buffer completions-buffer |
1647 |
(display-completion-list (all-completions word choices))) |
(display-completion-list (all-completions word choices))) |
1648 |
|
(ignore-errors |
1649 |
|
(kill-buffer completions-buffer)) |
1650 |
(delete-region begin end) |
(delete-region begin end) |
1651 |
(insert completion)))))) |
(insert completion)))))) |
1652 |
|
|
1974 |
|
|
1975 |
;; "C-c /" prefix is used in mh-letter-mode by pgp.el and mailcrypt.el. |
;; "C-c /" prefix is used in mh-letter-mode by pgp.el and mailcrypt.el. |
1976 |
|
|
|
;;;###autoload(add-to-list 'auto-mode-alist '("/drafts/[0-9]+\\'" . mh-letter-mode)) |
|
|
|
|
1977 |
(provide 'mh-comp) |
(provide 'mh-comp) |
1978 |
|
|
1979 |
;;; Local Variables: |
;;; Local Variables: |