summaryrefslogtreecommitdiff
path: root/lisp/mail/rmailsum.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-05-19 01:05:13 +0000
committerRichard M. Stallman <rms@gnu.org>1997-05-19 01:05:13 +0000
commitecb4dd9a350f1f36aca706d03f7cc1a9d50b5b23 (patch)
tree8532c55c90cdc6d16565bc25e99efefbffa9e0f1 /lisp/mail/rmailsum.el
parent58856335864a1dc5b56402d54cd8ef04e3082178 (diff)
downloademacs-ecb4dd9a350f1f36aca706d03f7cc1a9d50b5b23.tar.gz
(rmail-summary-delete-forward): Force the
argument to be a number, since we may be called with nil.
Diffstat (limited to 'lisp/mail/rmailsum.el')
-rw-r--r--lisp/mail/rmailsum.el1
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.
A prefix argument serves as a repeat count;
a negative argument means to delete and move backward."
(interactive "p")
+ (unless (numberp count) (setq count 1))
(let (end del-msg
(backward (< count 0)))
(while (/= count 0)