Mercurial > emacs
comparison lisp/mail/rmailout.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 | 53108e6cea98 1a8ec74a74f3 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 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)))))) |