[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Create smtpmail-queue-dir automatically
From: |
Jesper Harder |
Subject: |
Create smtpmail-queue-dir automatically |
Date: |
Tue, 08 Jul 2003 03:45:11 +0200 |
User-agent: |
Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) |
In GNU Emacs 21.3.50.131 (i686-pc-linux-gnu)
of 2003-07-08 on defun.localdomain
configured using `configure '--with-gtk''
At the moment it's left to the user to figure out that he has to
create `smtpmail-queue-dir' manually before using the queuing in
smtpmail.el.
Wouldn't it be friendlier if Emacs created the queue directory if it
doesn't already exist?
2003-07-08 Jesper Harder <address@hidden>
* smtpmail.el (smtpmail-send-it): Create smtpmail-queue-dir if it
doesn't exist.
diff -c /home/harder/emacs/lisp/mail/smtpmail.el /home/harder/smtpmail.el
*** /home/harder/emacs/lisp/mail/smtpmail.el Wed May 14 16:13:48 2003
--- /home/harder/smtpmail.el Tue Jul 8 03:37:02 2003
***************
*** 354,359 ****
--- 354,361 ----
(buffer-data (create-file-buffer file-data))
(buffer-elisp (create-file-buffer file-elisp))
(buffer-scratch "*queue-mail*"))
+ (unless (file-exists-p smtpmail-queue-dir)
+ (make-directory smtpmail-queue-dir t))
(with-current-buffer buffer-data
(erase-buffer)
(insert-buffer tembuf)
- Create smtpmail-queue-dir automatically,
Jesper Harder <=