summaryrefslogtreecommitdiff
path: root/lisp/nntp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-03-28 16:55:36 +0000
committerRichard M. Stallman <rms@gnu.org>1995-03-28 16:55:36 +0000
commit92a68cc68ffa3d957557d8df35d432c6b1cbf1ae (patch)
treee272bfecc10ac32e3b3f23bc7c9de2f735dcc561 /lisp/nntp.el
parent37d40ae917e30a9fc1bb3df308b77e7efe9a8e71 (diff)
downloademacs-92a68cc68ffa3d957557d8df35d432c6b1cbf1ae.tar.gz
(nntp-request-article): If ID is integer, convert to string.
Diffstat (limited to 'lisp/nntp.el')
-rw-r--r--lisp/nntp.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/nntp.el b/lisp/nntp.el
index db4d9cfdeae..1c3f0705f44 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -389,6 +389,8 @@ If the stream is opened, return T, otherwise return NIL."
(defun nntp-request-article (id)
"Select article by message ID (or number)."
+ (if (numberp id)
+ (setq id (number-to-string id)))
(prog1
;; If NEmacs, end of message may look like: "\256\215" (".^M")
(nntp-send-command "^\\.\r$" "ARTICLE" id)