Mercurial > emacs
comparison lisp/mail/feedmail.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 16 Dec 2007 05:08:49 +0000 |
parents | d38543a1c0f9 ac7eee19fc7e |
children | 56a72e2bd635 |
comparison
equal
deleted
inserted
replaced
91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
---|---|
1920 (defun feedmail-dump-message-to-queue (queue-directory what-event) | 1920 (defun feedmail-dump-message-to-queue (queue-directory what-event) |
1921 (or (file-accessible-directory-p queue-directory) | 1921 (or (file-accessible-directory-p queue-directory) |
1922 ;; progn to get nil result no matter what | 1922 ;; progn to get nil result no matter what |
1923 (progn (make-directory queue-directory t) nil) | 1923 (progn (make-directory queue-directory t) nil) |
1924 (file-accessible-directory-p queue-directory) | 1924 (file-accessible-directory-p queue-directory) |
1925 (error (concat "FQM: Message not queued; trouble with directory " queue-directory))) | 1925 (error "FQM: Message not queued; trouble with directory %s" queue-directory)) |
1926 (let ((filename) | 1926 (let ((filename) |
1927 (is-fqm) | 1927 (is-fqm) |
1928 (is-in-this-dir) | 1928 (is-in-this-dir) |
1929 (previous-buffer-file-name buffer-file-name)) | 1929 (previous-buffer-file-name buffer-file-name)) |
1930 (if buffer-file-name | 1930 (if buffer-file-name |