Re: How to change the default gnus-message-archive-method?

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <IM4X9O$82198AFDD420649AC1B63D82C0B2AE92@libero.it>
>>>>>	"romeomedina\@libero\.it" <romeomedina@libero.it> wrote:

> Katsumi Yamaoka wrote:

>> How doesn't it work?  What is the value you've set to the
>> `gnus-message-archive-group' variable?  What is the Gnus version
>> you are using?

> It doesn't work in the sense that gnus is going on storing the mail
> I send in its default `~/Mail/archive' directory.
> I've set the `gnus-message-archive-group' variable to the value 'all'.
> I'm using the Gnus version 5.11, included in Emacs CVS 21.3.50.1 of 2005-03-13.

I guess you have the default archive method in your ~/.newsrc.eld
file.  To examine it, type

C-h v gnus-server-alist RET

after starting up Gnus.  Isn't there an item like the following?

 ("archive" nnfolder "archive"
  (nnfolder-directory "~/Mail/archive")
  (nnfolder-active-file "~/Mail/archive/active")
  (nnfolder-get-new-mail nil)
  (nnfolder-inhibit-expiry t))

If it exists, it may have been made when the value of the
`gnus-message-archive-method' variable was "archive" (which is
the default).

Probably, the following header will appear in your message buffers.

Gcc: nnfolder+archive:all

When sending a message, Gnus parses the value of that header and
determine the method to archive the sent message.  At that time,
if the `gnus-server-alist' variable holds the "archive" method, Gnus
uses it rather than the one defined in `gnus-message-archive-method'.
Furthermore, there's no opportunity to update the "archive" method
held in `gnus-server-alist'.  We may say it is a bug.  I don't have
an idea to fix it, though.

If your case comes under this, it will be solvable by the following
ways.

1. Start Emacs; start Gnus; quit Gnus, but don't quit Emacs.

2. Make a backup of the ~/.newsrc.eld file.

3. Copy the following Lisp form into the *scratch* buffer, and
   evaluate it (type `C-j' at the end of the last line).

(let ((file "~/.newsrc.eld")
      (coding-system-for-read gnus-ding-file-coding-system)
      (coding-system-for-write gnus-ding-file-coding-system)
      (default-enable-multibyte-characters t)
      (print-quoted t) (print-readably t) (print-escape-multibyte nil)
      (print-escape-nonascii t) (print-length nil) (print-level nil)
      (print-escape-newlines t)
      start alist arc)
  (with-temp-buffer
    (insert-file-contents file)
    (goto-char (point-min))
    (when (re-search-forward "([\t\n ]*setq[\t\n ]+gnus-server-alist[\t\n ]"
			     nil t)
      (goto-char (setq start (match-beginning 0)))
      (setq alist (car (cdr (car (cdr (cdr (read (current-buffer))))))))
      (skip-chars-forward "\t\n ")
      (delete-region start (point))
      (while (setq arc (assoc "archive" alist))
	(setq alist (delq arc alist)))
      (insert "(setq gnus-server-alist '" (prin1-to-string alist) ")\n")
      (write-region (point-min) (point-max) file))))

4. Start Gnus.