diff options
| author | Richard M. Stallman | 1995-03-28 16:55:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-28 16:55:36 +0000 |
| commit | 92a68cc68ffa3d957557d8df35d432c6b1cbf1ae (patch) | |
| tree | e272bfecc10ac32e3b3f23bc7c9de2f735dcc561 | |
| parent | 37d40ae917e30a9fc1bb3df308b77e7efe9a8e71 (diff) | |
| download | emacs-92a68cc68ffa3d957557d8df35d432c6b1cbf1ae.tar.gz emacs-92a68cc68ffa3d957557d8df35d432c6b1cbf1ae.zip | |
(nntp-request-article): If ID is integer, convert to string.
| -rw-r--r-- | lisp/nntp.el | 2 |
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." | |||
| 389 | 389 | ||
| 390 | (defun nntp-request-article (id) | 390 | (defun nntp-request-article (id) |
| 391 | "Select article by message ID (or number)." | 391 | "Select article by message ID (or number)." |
| 392 | (if (numberp id) | ||
| 393 | (setq id (number-to-string id))) | ||
| 392 | (prog1 | 394 | (prog1 |
| 393 | ;; If NEmacs, end of message may look like: "\256\215" (".^M") | 395 | ;; If NEmacs, end of message may look like: "\256\215" (".^M") |
| 394 | (nntp-send-command "^\\.\r$" "ARTICLE" id) | 396 | (nntp-send-command "^\\.\r$" "ARTICLE" id) |