Mercurial > emacs
comparison lisp/mail/feedmail.el @ 87141:1a8ec74a74f3
Fix buggy calls to `error'.
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Thu, 06 Dec 2007 18:18:13 +0000 |
| parents | d473c33347de |
| children | ac7eee19fc7e |
comparison
equal
deleted
inserted
replaced
| 87140:9c91533a901a | 87141:1a8ec74a74f3 |
|---|---|
| 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 "%s" (concat "FQM: Message not queued; trouble with directory " 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 |