projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(dns-get-txt-answer): New function.
[gnus]
/
lisp
/
gnus-msg.el
diff --git
a/lisp/gnus-msg.el
b/lisp/gnus-msg.el
index
dea6e3b
..
7c2c881
100644
(file)
--- a/
lisp/gnus-msg.el
+++ b/
lisp/gnus-msg.el
@@
-362,7
+362,7
@@
Thank you for your help in stamping out bugs.
(defun gnus-inews-make-draft (articles)
`(lambda ()
(gnus-inews-make-draft-meta-information
(defun gnus-inews-make-draft (articles)
`(lambda ()
(gnus-inews-make-draft-meta-information
- ,gnus-newsgroup-name
,@
articles)))
+ ,gnus-newsgroup-name
',
articles)))
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
@@
-432,9
+432,19
@@
Thank you for your help in stamping out bugs.
(run-hooks 'post-command-hook)
(set-buffer-modified-p nil))))
(run-hooks 'post-command-hook)
(set-buffer-modified-p nil))))
-(defun gnus-inews-make-draft-meta-information (group &rest articles)
+(defun gnus-inews-make-draft-meta-information (group articles)
+ (when (numberp articles)
+ (setq articles (list articles)))
(concat "(\"" group "\" "
(concat "(\"" group "\" "
- (if articles (mapconcat #'number-to-string articles " "))
+ (if articles
+ (mapconcat
+ (lambda (elem)
+ (number-to-string
+ (if (consp elem)
+ (car elem)
+ elem)))
+ articles " ")
+ "")
")"))
;;;###autoload
")"))
;;;###autoload
@@
-1926,4
+1936,5
@@
this is a reply."
(provide 'gnus-msg)
(provide 'gnus-msg)
+;;; arch-tag: 9f22b2f5-1c0a-49de-916e-4c88e984852b
;;; gnus-msg.el ends here
;;; gnus-msg.el ends here