Mercurial > emacs
comparison lisp/mail/feedmail.el @ 87169:ac7eee19fc7e
Improves calls to `error', per mail from RMS.
author | Deepak Goel <deego@gnufans.org> |
---|---|
date | Sat, 08 Dec 2007 00:57:23 +0000 |
parents | 1a8ec74a74f3 |
children | 20bb7aaa7b12 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
87168:6f2a76e2f476 | 87169:ac7eee19fc7e |
---|---|
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 "%s" (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 |