diff options
| author | Richard M. Stallman | 1997-05-19 01:05:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-19 01:05:13 +0000 |
| commit | ecb4dd9a350f1f36aca706d03f7cc1a9d50b5b23 (patch) | |
| tree | 8532c55c90cdc6d16565bc25e99efefbffa9e0f1 | |
| parent | 58856335864a1dc5b56402d54cd8ef04e3082178 (diff) | |
| download | emacs-ecb4dd9a350f1f36aca706d03f7cc1a9d50b5b23.tar.gz emacs-ecb4dd9a350f1f36aca706d03f7cc1a9d50b5b23.zip | |
(rmail-summary-delete-forward): Force the
argument to be a number, since we may be called with nil.
| -rw-r--r-- | lisp/mail/rmailsum.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 4a7dd67b082..6081062dde6 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -582,6 +582,7 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given. | |||
| 582 | A prefix argument serves as a repeat count; | 582 | A prefix argument serves as a repeat count; |
| 583 | a negative argument means to delete and move backward." | 583 | a negative argument means to delete and move backward." |
| 584 | (interactive "p") | 584 | (interactive "p") |
| 585 | (unless (numberp count) (setq count 1)) | ||
| 585 | (let (end del-msg | 586 | (let (end del-msg |
| 586 | (backward (< count 0))) | 587 | (backward (< count 0))) |
| 587 | (while (/= count 0) | 588 | (while (/= count 0) |