Mercurial > emacs
comparison lisp/mail/rmailout.el @ 87141:1a8ec74a74f3
Fix buggy calls to `error'.
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Thu, 06 Dec 2007 18:18:13 +0000 |
| parents | 4aedd218aad1 |
| children | 107ccd98fa12 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
| 87140:9c91533a901a | 87141:1a8ec74a74f3 |
|---|---|
| 378 (num-appended (- orig-count count))) | 378 (num-appended (- orig-count count))) |
| 379 (if (and next-message-p original-headers-p) | 379 (if (and next-message-p original-headers-p) |
| 380 (rmail-toggle-header)) | 380 (rmail-toggle-header)) |
| 381 (if (and (> count 0) (not next-message-p)) | 381 (if (and (> count 0) (not next-message-p)) |
| 382 (progn | 382 (progn |
| 383 (error | 383 (error "%s" |
| 384 (save-excursion | 384 (save-excursion |
| 385 (set-buffer rmailbuf) | 385 (set-buffer rmailbuf) |
| 386 (format "Only %d message%s appended" num-appended | 386 (format "Only %d message%s appended" num-appended |
| 387 (if (= num-appended 1) "" "s")))) | 387 (if (= num-appended 1) "" "s")))) |
| 388 (setq count 0)))))) | 388 (setq count 0)))))) |