[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 (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

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
                (insert-buffer tembuf)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]