Mercurial > emacs

comparison lisp/mail/mh-comp.el @ 28739:192cbf5dbea2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-send-sub): Look for mh-comp-formfile in mh-etc, too.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 27 Apr 2000 18:56:42 +0000
parents d11cb5096a6c
children 25fb2df6c428
comparison
equal deleted inserted replaced
28738:d53c2c6bc56f 28739:192cbf5dbea2
24 24
25 ;; Internal support for mh-e package. 25 ;; Internal support for mh-e package.
26 26
27 ;;; Change Log: 27 ;;; Change Log:
28 28
29 ;; $Id: mh-comp.el,v 1.15 1999/09/04 00:08:17 rms Exp $ 29 ;; $Id: mh-comp.el,v 1.16 1999/11/10 10:46:01 gerd Exp $
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (provide 'mh-comp) 33 (provide 'mh-comp)
34 (require 'mh-utils) 34 (require 'mh-utils)
513 components) 513 components)
514 ((file-exists-p 514 ((file-exists-p
515 (setq components 515 (setq components
516 (expand-file-name mh-comp-formfile mh-lib))) 516 (expand-file-name mh-comp-formfile mh-lib)))
517 components) 517 components)
518 ((file-exists-p
519 (setq components
520 (expand-file-name mh-comp-formfile mh-etc)))
521 components)
518 (t 522 (t
519 (error (format "Can't find components file \"%s\"" 523 (error (format "Can't find components file \"%s\""
520 components))))) 524 components)))))
521 nil))) 525 nil)))
522 (mh-insert-fields "To:" to "Subject:" subject "Cc:" cc) 526 (mh-insert-fields "To:" to "Subject:" subject "Cc:" cc)