/[emacs]/emacs/lisp/mh-e/mh-comp.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-comp.el

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

revision 1.9 by ttn, Wed May 18 11:01:20 2005 UTC revision 1.10 by wohler, Sat May 28 22:04:54 2005 UTC
# Line 1  Line 1 
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>
# Line 52  Line 53 
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    
# Line 490  to reply to: Line 490  to reply to:
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
# Line 1629  This is useful in breaking up paragraphs Line 1631  This is useful in breaking up paragraphs
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    
# Line 1965  Otherwise return the empty string." Line 1974  Otherwise return the empty string."
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:

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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