Mercurial > emacs
comparison lisp/mail/mh-comp.el @ 26393:d11cb5096a6c
(mh-smail-batch): If TO is nil, use "" as
to-address.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 10 Nov 1999 10:46:01 +0000 |
parents | 2fe0f62fa349 |
children | 192cbf5dbea2 |
comparison
equal
deleted
inserted
replaced
26392:b3d3ff9a7a2c | 26393:d11cb5096a6c |
---|---|
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.14 1999/03/01 03:47:07 kwzh Exp rms $ | 29 ;; $Id: mh-comp.el,v 1.15 1999/09/04 00:08:17 rms 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) |
231 for any header fields, and thus is suitable for use by programs | 231 for any header fields, and thus is suitable for use by programs |
232 that want to create a mail buffer. | 232 that want to create a mail buffer. |
233 Users should use `\\[mh-smail]' to compose mail." | 233 Users should use `\\[mh-smail]' to compose mail." |
234 (mh-find-path) | 234 (mh-find-path) |
235 (let ((mh-error-if-no-draft t)) | 235 (let ((mh-error-if-no-draft t)) |
236 (mh-send to "" subject))) | 236 (mh-send (or to "") "" (or subject "")))) |
237 | 237 |
238 | 238 |
239 (defun mh-edit-again (msg) | 239 (defun mh-edit-again (msg) |
240 "Clean-up a draft or a message previously sent and make it resendable. | 240 "Clean-up a draft or a message previously sent and make it resendable. |
241 Default is the current message. | 241 Default is the current message. |