Commit 4a3988d5 authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka

Merge changes made in Gnus trunk.

auth.texi (Help for users): Mention ~/.netrc is also searched by default now.
gnus-start.el (gnus-dribble-read-file): Set buffer-save-without-query, since we always want to save the dribble file, probably.
nnmail.el (nnmail-article-group): Allow a final "" split to work on nnimap.
gnus-sum.el (gnus-user-date-format-alist): Renamed back again from -summary- since it's a user-visible variable.
nnimap.el (nnimap-retrieve-group-data-early): Don't do QRESYNC the first time you use the new Gnus.
auth-source.el: Don't load netrc.el.
 (auth-sources): Search ~/.netrc as well by default.
 (auth-source-debug): Add 'trivia option for extra output.
 (auth-source-do-trivia): Use it.
 (auth-source-search): Simplify logic to use `auth-source-search-backends'.  Use `auth-source-do-trivia' where appropriate.  Don't keep a running count at this level.  Layer :create and :delete options appropriately on the first and second passes.  Don't track the backend with the search results.
 (auth-source-search-backends): New function to search a list of backends for a processed spec.
 (auth-source-netrc-parse): Cache all netrc files, making auth-source-netrc-cache an alist keyed by the file name and using the file mtime as the caching criterion.  Keep the obfuscated data secret with a lexical bind.
 (auth-source-netrc-search): Don't calculate the length of the results unnecessarily.
 (auth-source-search-backends): Fix bug.
 (auth-source-netrc-create): Rework prompts.
nnir.el (nnir-imap-search-arguments,nnir-imap-default-search-key): Lower case names of search constraints.
 (nnir-run-query): Cache and reuse search constraints for all imap servers.
gnus-msg.el (gnus-setup-message): Define missing variable from last checkin.
parent 0d327994
...@@ -19,6 +19,11 @@ ...@@ -19,6 +19,11 @@
(Local Variables): Say this is obsolete. Fix description of (Local Variables): Say this is obsolete. Fix description of
dired-enable-local-variables possible values. dired-enable-local-variables possible values.
2011-02-22 Teodor Zlatanov <tzz@lifelogs.com>
* auth.texi (Help for users): Mention ~/.netrc is also searched by
default now.
2011-02-21 Lars Ingebrigtsen <larsi@gnus.org> 2011-02-21 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Article Date): Clarify gnus-article-update-date-headers. * gnus.texi (Article Date): Clarify gnus-article-update-date-headers.
......
...@@ -127,8 +127,8 @@ you will be pwned as the kids say. ...@@ -127,8 +127,8 @@ you will be pwned as the kids say.
``Netrc'' files are usually called @code{.authinfo} or @code{.netrc}; ``Netrc'' files are usually called @code{.authinfo} or @code{.netrc};
nowadays @code{.authinfo} seems to be more popular and the auth-source nowadays @code{.authinfo} seems to be more popular and the auth-source
library encourages this confusion by making it the default, as you'll library encourages this confusion by accepting both, as you'll see
see later. later.
If you have problems with the search, set @code{auth-source-debug} to If you have problems with the search, set @code{auth-source-debug} to
@code{t} and see what host, port, and user the library is checking in @code{t} and see what host, port, and user the library is checking in
...@@ -159,7 +159,7 @@ and simplest configuration is: ...@@ -159,7 +159,7 @@ and simplest configuration is:
;;; mostly equivalent (see below about fallbacks) but shorter: ;;; mostly equivalent (see below about fallbacks) but shorter:
(setq auth-sources '((:source "~/.authinfo.gpg"))) (setq auth-sources '((:source "~/.authinfo.gpg")))
;;; even shorter and the @emph{default}: ;;; even shorter and the @emph{default}:
(setq auth-sources '("~/.authinfo.gpg" "~/.authinfo")) (setq auth-sources '("~/.authinfo.gpg" "~/.authinfo" "~/.netrc"))
;;; use the Secrets API @var{Login} collection (@pxref{Secret Service API}) ;;; use the Secrets API @var{Login} collection (@pxref{Secret Service API})
(setq auth-sources '("secrets:Login")) (setq auth-sources '("secrets:Login"))
@end lisp @end lisp
...@@ -184,8 +184,8 @@ the defaults: any host and any port are looked up in the netrc ...@@ -184,8 +184,8 @@ the defaults: any host and any port are looked up in the netrc
file @code{~/.authinfo.gpg}, which is a GnuPG encrypted file file @code{~/.authinfo.gpg}, which is a GnuPG encrypted file
(@pxref{GnuPG and EasyPG Assistant Configuration}). (@pxref{GnuPG and EasyPG Assistant Configuration}).
If that fails, the unencrypted netrc file @code{~/.authinfo} will If that fails, the unencrypted netrc files @code{~/.authinfo} and
be used. @code{~/.netrc} will be used.
The typical netrc line example is without a port. The typical netrc line example is without a port.
......
2011-02-23 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-start.el (gnus-dribble-read-file): Set
buffer-save-without-query, since we always want to save the dribble
file, probably.
* nnmail.el (nnmail-article-group): Allow a final "" split to work on
nnimap.
* gnus-sum.el (gnus-user-date-format-alist): Renamed back again from
-summary- since it's a user-visible variable.
* nnimap.el (nnimap-retrieve-group-data-early): Don't do QRESYNC the
first time you use the new Gnus.
2011-02-22 Teodor Zlatanov <tzz@lifelogs.com>
* auth-source.el: Don't load netrc.el.
(auth-sources): Search ~/.netrc as well by default.
(auth-source-debug): Add 'trivia option for extra output.
(auth-source-do-trivia): Use it.
(auth-source-search): Simplify logic to use
`auth-source-search-backends'. Use `auth-source-do-trivia' where
appropriate. Don't keep a running count at this level. Layer :create
and :delete options appropriately on the first and second passes.
Don't track the backend with the search results.
(auth-source-search-backends): New function to search a list of
backends for a processed spec.
(auth-source-netrc-parse): Cache all netrc files, making
auth-source-netrc-cache an alist keyed by the file name and using the
file mtime as the caching criterion. Keep the obfuscated data secret
with a lexical bind.
(auth-source-netrc-search): Don't calculate the length of the results
unnecessarily.
(auth-source-search-backends): Fix bug.
(auth-source-netrc-create): Rework prompts.
2011-02-22 Andrew Cohen <cohen@andy.bu.edu>
* nnir.el (nnir-imap-search-arguments,nnir-imap-default-search-key):
Lower case names of search constraints.
(nnir-run-query): Cache and reuse search constraints for all imap
servers.
2011-02-22 Sam Steingold <sds@gnu.org> 2011-02-22 Sam Steingold <sds@gnu.org>
* gnus-msg.el (gnus-setup-message): Also bind `winconf-name'. * gnus-msg.el (gnus-setup-message): Also bind `winconf-name'.
...@@ -6,6 +50,7 @@ ...@@ -6,6 +50,7 @@
* gnus-msg.el (gnus-inews-add-send-actions): Restore the winconf name * gnus-msg.el (gnus-inews-add-send-actions): Restore the winconf name
after exit. after exit.
(gnus-setup-message): Define missing variable from last checkin.
* gnus-sum.el (gnus-summary-show-article): When called with t as the * gnus-sum.el (gnus-summary-show-article): When called with t as the
value, show the raw article. value, show the raw article.
......
...@@ -42,7 +42,6 @@ ...@@ -42,7 +42,6 @@
(require 'password-cache) (require 'password-cache)
(require 'mm-util) (require 'mm-util)
(require 'gnus-util) (require 'gnus-util)
(require 'netrc)
(require 'assoc) (require 'assoc)
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
(require 'eieio) (require 'eieio)
...@@ -164,16 +163,19 @@ If the value is a function, debug messages are logged by calling ...@@ -164,16 +163,19 @@ If the value is a function, debug messages are logged by calling
:type `(choice :type `(choice
:tag "auth-source debugging mode" :tag "auth-source debugging mode"
(const :tag "Log using `message' to the *Messages* buffer" t) (const :tag "Log using `message' to the *Messages* buffer" t)
(const :tag "Log all trivia with `message' to the *Messages* buffer"
trivia)
(function :tag "Function that takes arguments like `message'") (function :tag "Function that takes arguments like `message'")
(const :tag "Don't log anything" nil))) (const :tag "Don't log anything" nil)))
(defcustom auth-sources '("~/.authinfo.gpg" "~/.authinfo") (defcustom auth-sources '("~/.authinfo.gpg" "~/.authinfo" "~/.netrc")
"List of authentication sources. "List of authentication sources.
The default will get login and password information from The default will get login and password information from
\"~/.authinfo.gpg\", which you should set up with the EPA/EPG \"~/.authinfo.gpg\", which you should set up with the EPA/EPG
packages to be encrypted. If that file doesn't exist, it will packages to be encrypted. If that file doesn't exist, it will
try the unencrypted version \"~/.authinfo\". try the unencrypted version \"~/.authinfo\" and the famous
\"~/.netrc\" file.
See the auth.info manual for details. See the auth.info manual for details.
...@@ -256,6 +258,11 @@ If the value is not a list, symmetric encryption will be used." ...@@ -256,6 +258,11 @@ If the value is not a list, symmetric encryption will be used."
(when auth-source-debug (when auth-source-debug
(apply 'auth-source-do-warn msg))) (apply 'auth-source-do-warn msg)))
(defun auth-source-do-trivia (&rest msg)
(when (or (eq auth-source-debug 'trivia)
(functionp auth-source-debug))
(apply 'auth-source-do-warn msg)))
(defun auth-source-do-warn (&rest msg) (defun auth-source-do-warn (&rest msg)
(apply (apply
;; set logger to either the function in auth-source-debug or 'message ;; set logger to either the function in auth-source-debug or 'message
...@@ -500,7 +507,7 @@ must call it to obtain the actual value." ...@@ -500,7 +507,7 @@ must call it to obtain the actual value."
unless (memq (nth i spec) ignored-keys) unless (memq (nth i spec) ignored-keys)
collect (nth i spec))) collect (nth i spec)))
(found (auth-source-recall spec)) (found (auth-source-recall spec))
filtered-backends accessor-key found-here goal matches backend) filtered-backends accessor-key backend)
(if (and found auth-source-do-cache) (if (and found auth-source-do-cache)
(auth-source-do-debug (auth-source-do-debug
...@@ -509,7 +516,7 @@ must call it to obtain the actual value." ...@@ -509,7 +516,7 @@ must call it to obtain the actual value."
(assert (assert
(or (eq t create) (listp create)) t (or (eq t create) (listp create)) t
"Invalid auth-source :create parameter (must be nil, t, or a list): %s %s") "Invalid auth-source :create parameter (must be t or a list): %s %s")
(setq filtered-backends (copy-sequence backends)) (setq filtered-backends (copy-sequence backends))
(dolist (backend backends) (dolist (backend backends)
...@@ -523,66 +530,64 @@ must call it to obtain the actual value." ...@@ -523,66 +530,64 @@ must call it to obtain the actual value."
(return)) (return))
(invalid-slot-name)))) (invalid-slot-name))))
(auth-source-do-debug (auth-source-do-trivia
"auth-source-search: found %d backends matching %S" "auth-source-search: found %d backends matching %S"
(length filtered-backends) spec) (length filtered-backends) spec)
;; (debug spec "filtered" filtered-backends) ;; (debug spec "filtered" filtered-backends)
(setq goal max)
;; First go through all the backends without :create, so we can ;; First go through all the backends without :create, so we can
;; query them all. ;; query them all.
(let ((uspec (copy-sequence spec))) (setq found (auth-source-search-backends filtered-backends
(plist-put uspec :create nil) spec
(dolist (backend filtered-backends) ;; to exit early
(let ((match (apply max
(slot-value backend 'search-function) ;; create and delete
:backend backend nil delete))
uspec)))
(when match (auth-source-do-debug
(push (list backend match) matches))))) "auth-source-search: found %d results (max %d) matching %S"
(length found) max spec)
;; If we didn't find anything, then we allow the backend(s) to ;; If we didn't find anything, then we allow the backend(s) to
;; create the entries. ;; create the entries.
(when (and create (when (and create
(not matches)) (not found))
(dolist (backend filtered-backends) (setq found (auth-source-search-backends filtered-backends
(unless matches spec
(let ((match (apply ;; to exit early
(slot-value backend 'search-function) max
:backend backend ;; create and delete
:create create create delete))
:delete delete (auth-source-do-warn
spec))) "auth-source-search: CREATED %d results (max %d) matching %S"
(when match (length found) max spec))
(push (list backend match) matches))))))
(when (and found auth-source-do-cache)
(setq backend (caar matches) (auth-source-remember spec found)))
found-here (cadar matches))
found))
(block nil
;; if max is 0, as soon as we find something, return it (defun auth-source-search-backends (backends spec max create delete)
(when (and (zerop max) (> 0 (length found-here))) (let (matches)
(return t)) (dolist (backend backends)
(when (> max (length matches)) ; when we need more matches...
;; decrement the goal by the number of new results (let ((bmatches (apply
(decf goal (length found-here)) (slot-value backend 'search-function)
;; and append the new results to the full list :backend backend
(setq found (append found found-here)) ;; note we're overriding whatever the spec
;; has for :create and :delete
(auth-source-do-debug :create create
"auth-source-search: found %d results (max %d/%d) in %S matching %S" :delete delete
(length found-here) max goal backend spec) spec)))
(when bmatches
;; return full list if the goal is 0 or negative (auth-source-do-trivia
(when (zerop (max 0 goal)) "auth-source-search-backend: got %d (max %d) in %s:%s matching %S"
(return found)) (length bmatches) max
(slot-value backend :type)
;; change the :max parameter in the spec to the goal (slot-value backend :source)
(setq spec (plist-put spec :max goal)) spec)
(setq matches (append matches bmatches))))))
(when (and found auth-source-do-cache) matches))
(auth-source-remember spec found))))
found))
;;; (auth-source-search :max 1) ;;; (auth-source-search :max 1)
;;; (funcall (plist-get (nth 0 (auth-source-search :max 1)) :secret)) ;;; (funcall (plist-get (nth 0 (auth-source-search :max 1)) :secret))
...@@ -704,25 +709,35 @@ Note that the MAX parameter is used so we can exit the parse early." ...@@ -704,25 +709,35 @@ Note that the MAX parameter is used so we can exit the parse early."
(when (file-exists-p file) (when (file-exists-p file)
(setq port (auth-source-ensure-strings port)) (setq port (auth-source-ensure-strings port))
(with-temp-buffer (with-temp-buffer
(let ((tokens '("machine" "host" "default" "login" "user" (let* ((tokens '("machine" "host" "default" "login" "user"
"password" "account" "macdef" "force" "password" "account" "macdef" "force"
"port" "protocol")) "port" "protocol"))
(max (or max 5000)) ; sanity check: default to stop at 5K (max (or max 5000)) ; sanity check: default to stop at 5K
(modified 0) (modified 0)
alist elem result pair) (cached (cdr-safe (assoc file auth-source-netrc-cache)))
(if (and auth-source-netrc-cache (cached-mtime (plist-get cached :mtime))
(equal (car auth-source-netrc-cache) (cached-secrets (plist-get cached :secret))
(nth 5 (file-attributes file)))) alist elem result pair)
(insert (base64-decode-string
(rot13-string (cdr auth-source-netrc-cache)))) (if (and (functionp cached-secrets)
(insert-file-contents file) (equal cached-mtime
(when (string-match "\\.gpg\\'" file) (nth 5 (file-attributes file))))
;; Store the contents of the file heavily encrypted in memory. (progn
(setq auth-source-netrc-cache (auth-source-do-trivia
(cons (nth 5 (file-attributes file)) "auth-source-netrc-parse: using CACHED file data for %s"
(rot13-string file)
(base64-encode-string (insert (funcall cached-secrets)))
(buffer-string))))))) (insert-file-contents file)
;; cache all netrc files (used to be just .gpg files)
;; Store the contents of the file heavily encrypted in memory.
;; (note for the irony-impaired: they are just obfuscated)
(aput 'auth-source-netrc-cache file
(list :mtime (nth 5 (file-attributes file))
:secret (lexical-let ((v (rot13-string
(base64-encode-string
(buffer-string)))))
(lambda () (base64-decode-string
(rot13-string v)))))))
(goto-char (point-min)) (goto-char (point-min))
;; Go through the file, line by line. ;; Go through the file, line by line.
(while (and (not (eobp)) (while (and (not (eobp))
...@@ -868,7 +883,7 @@ See `auth-source-search' for details on SPEC." ...@@ -868,7 +883,7 @@ See `auth-source-search' for details on SPEC."
;; if we need to create an entry AND none were found to match ;; if we need to create an entry AND none were found to match
(when (and create (when (and create
(= 0 (length results))) (not results))
;; create based on the spec and record the value ;; create based on the spec and record the value
(setq results (or (setq results (or
...@@ -897,7 +912,6 @@ See `auth-source-search' for details on SPEC." ...@@ -897,7 +912,6 @@ See `auth-source-search' for details on SPEC."
(required (append base-required create-extra)) (required (append base-required create-extra))
(file (oref backend source)) (file (oref backend source))
(add "") (add "")
(show "")
;; `valist' is an alist ;; `valist' is an alist
valist valist
;; `artificial' will be returned if no creation is needed ;; `artificial' will be returned if no creation is needed
...@@ -928,63 +942,29 @@ See `auth-source-search' for details on SPEC." ...@@ -928,63 +942,29 @@ See `auth-source-search' for details on SPEC."
;; for each required element ;; for each required element
(dolist (r required) (dolist (r required)
(let* ((data (aget valist r)) (let* ((data (aget valist r))
;; take the first element if the data is a list
(data (if (listp data)
(nth 0 data)
data))
;; this is the default to be offered
(given-default (aget auth-source-creation-defaults r)) (given-default (aget auth-source-creation-defaults r))
;; the defaults are simple ;; the default supplementals are simple: for the user,
;; try (user-login-name), otherwise take given-default
(default (cond (default (cond
((and (not given-default) (eq r 'user)) ((and (not given-default) (eq r 'user))
(user-login-name)) (user-login-name))
;; note we need this empty string (t given-default))))
((and (not given-default) (eq r 'port))
"") ;; store the data, prompting for the password if needed
(t given-default))) (setq data
;; the prompt's default string depends on the data so far (cond
(default-string (if (and default (< 0 (length default))) ((and (null data) (eq r 'secret))
(format " (default %s)" default) ;; special case prompt for passwords
" (no default)")) (read-passwd (format "Password for %s@%s:%s: "
;; the prompt should also show what's entered so far (or (aget valist 'user) "[any user]")
(user-value (aget valist 'user)) (or (aget valist 'host) "[any host]")
(host-value (aget valist 'host)) (or (aget valist 'port) "[any port]"))))
(port-value (aget valist 'port)) (t data)))
;; note this handles lists by just printing them
;; later we allow the user to use completing-read to pick
(info-so-far (concat (if user-value
(format "%s@" user-value)
"[USER?]")
(if host-value
(format "%s" host-value)
"[HOST?]")
(if port-value
;; this distinguishes protocol between
(if (zerop (length port-value))
"" ; 'entered as "no default"' vs.
(format ":%s" port-value)) ; given
;; and this is when the protocol is unknown
"[PORT?]"))))
;; now prompt if the search SPEC did not include a required key;
;; take the result and put it in `data' AND store it in `valist'
(aput 'valist r
(setq data
(cond
((and (null data) (eq r 'secret))
;; special case prompt for passwords
(read-passwd (format "Password for %s: " info-so-far)))
((null data)
(read-string
(format "Enter %s for %s%s: "
r info-so-far default-string)
nil nil default))
((listp data)
(completing-read
(format "Enter %s for %s (TAB to see the choices): "
r info-so-far)
data
nil ; no predicate
t ; require a match
;; note the default is nil, but if the user
;; hits RET we'll get "", which is handled OK later
nil))
(t data))))
(when data (when data
(setq artificial (plist-put artificial (setq artificial (plist-put artificial
...@@ -997,7 +977,9 @@ See `auth-source-search' for details on SPEC." ...@@ -997,7 +977,9 @@ See `auth-source-search' for details on SPEC."
;; when r is not an empty string... ;; when r is not an empty string...
(when (and (stringp data) (when (and (stringp data)
(< 0 (length data))) (< 0 (length data)))
(let ((printer (lambda (hide) ;; this function is not strictly necessary but I think it
;; makes the code clearer -tzz
(let ((printer (lambda ()
;; append the key (the symbol name of r) ;; append the key (the symbol name of r)
;; and the value in r ;; and the value in r
(format "%s%s %S" (format "%s%s %S"
...@@ -1005,17 +987,14 @@ See `auth-source-search' for details on SPEC." ...@@ -1005,17 +987,14 @@ See `auth-source-search' for details on SPEC."
(if (zerop (length add)) "" " ") (if (zerop (length add)) "" " ")
;; remap auth-source tokens to netrc ;; remap auth-source tokens to netrc
(case r (case r
('user "login") ('user "login")
('host "machine") ('host "machine")
('secret "password") ('secret "password")
('port "port") ; redundant but clearer ('port "port") ; redundant but clearer
(t (symbol-name r))) (t (symbol-name r)))
;; the value will be printed in %S format ;; the value will be printed in %S format
(if (and hide (eq r 'secret)) data))))
"HIDDEN_SECRET" (setq add (concat add (funcall printer)))))))
data)))))
(setq add (concat add (funcall printer nil)))
(setq show (concat show (funcall printer t)))))))
(with-temp-buffer (with-temp-buffer
(when (file-exists-p file) (when (file-exists-p file)
...@@ -1032,17 +1011,35 @@ See `auth-source-search' for details on SPEC." ...@@ -1032,17 +1011,35 @@ See `auth-source-search' for details on SPEC."
(goto-char (point-max)) (goto-char (point-max))
;; ask AFTER we've successfully opened the file ;; ask AFTER we've successfully opened the file
(if (y-or-n-p (format "Add to file %s: line [%s]" file show)) (let (done k)
(while (not done)
(setq k (read-char-choice
(format "Add to file %s? %s: "
file
"(y)es/(n)o but use it/(e)dit line/(s)kip file")
'(?y ?n ?e ?s)))
(case k
(?y (setq done t))
(?n (setq add ""
done t))
(?s (setq add ""
done 'skip))
(?e (setq add (read-string "Line to add: " add)))
(t nil)))
(when (< 0 (length add))
(progn (progn
(unless (bolp) (unless (bolp)
(insert "\n")) (insert "\n"))
(insert add "\n") (insert add "\n")
(write-region (point-min) (point-max) file nil 'silent) (write-region (point-min) (point-max) file nil 'silent)
(auth-source-do-debug (auth-source-do-warn
"auth-source-netrc-create: wrote 1 new line to %s" "auth-source-netrc-create: wrote 1 new line to %s"
file) file)
nil) nil))
(list artificial)))))
(when (eq done t)
(list artificial))))))
;;; Backend specific parsing: Secrets API backend ;;; Backend specific parsing: Secrets API backend
......
...@@ -383,7 +383,7 @@ Thank you for your help in stamping out bugs. ...@@ -383,7 +383,7 @@ Thank you for your help in stamping out bugs.
(defvar gnus-article-reply nil) (defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms) (defmacro gnus-setup-message (config &rest forms)
(let ((winconf (make-symbol "gnus-setup-message-winconf")) (let ((winconf (make-symbol "gnus-setup-message-winconf"))
(winconf-name (make-symbol "gnus-setup-message-winconf")) (winconf-name (make-symbol "gnus-setup-message-winconf-name"))
(buffer (make-symbol "gnus-setup-message-buffer")) (buffer (make-symbol "gnus-setup-message-buffer"))
(article (make-symbol "gnus-setup-message-article")) (article (make-symbol "gnus-setup-message-article"))
(yanked (make-symbol "gnus-setup-yanked-articles")) (yanked (make-symbol "gnus-setup-yanked-articles"))
...@@ -434,7 +434,7 @@ Thank you for your help in stamping out bugs. ...@@ -434,7 +434,7 @@ Thank you for your help in stamping out bugs.
(progn (progn
,@forms) ,@forms)
(gnus-inews-add-send-actions ,winconf ,buffer ,article ,config (gnus-inews-add-send-actions ,winconf ,buffer ,article ,config
,yanked ,winconf-name) ,yanked ',winconf-name)
(setq gnus-message-buffer (current-buffer)) (setq gnus-message-buffer (current-buffer))
(set (make-local-variable 'gnus-message-group-art) (set (make-local-variable 'gnus-message-group-art)
(cons ,group ,article)) (cons ,group ,article))
...@@ -542,7 +542,7 @@ Gcc: header for archiving purposes." ...@@ -542,7 +542,7 @@ Gcc: header for archiving purposes."
(gnus-post-method arg ,gnus-newsgroup-name))) (gnus-post-method arg ,gnus-newsgroup-name)))
(message-add-action