23.0.60; Gnus doesn't queue messages in offline mode

[Giorgos Keramidas]

I just rebuilt GNU Emacs from a CVS snapshot checked out with:

    cvs co -D '2008-04-24 06:06:53'

When I post an email message in offline mode, then Gnus archives the
posted message in `nnml:posted', but does not queue the message in the
outgoing message queue.

My Gnus startup file is included below, in case something is broken
there.  I've been using this startup file to successfully work in
"offline" more about a month or so ago, but it's probably a good idea to
make sure I didn't misconfigure something.

---------------------------------------------------------------------------
  ;;; Gnus startup file.
  ;;
  ;; This file is not part of GNU Emacs.
  ;;
  ;; Copyright (C) 2002-2008, Giorgos Keramidas <address@hidden>
  ;; All rights reserved.
  ;;
  ;; Redistribution and use in source and binary forms, with or without
  ;; modification, are permitted provided that the following conditions
  ;; are met:
  ;; 1. Redistributions of source code must retain the above copyright
  ;;    notice, this list of conditions and the following disclaimer.
  ;; 2. Redistributions in binary form must reproduce the above copyright
  ;;    notice, this list of conditions and the following disclaimer in the
  ;;    documentation and/or other materials provided with the distribution.
  ;;
  ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  ;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  ;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  ;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  ;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  ;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  ;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  ;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  ;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  ;; SUCH DAMAGE.

  ;;; History:
  ;;
  ;; * Sun Feb 10 22:57:57 EET 2008
  ;;
  ;; Prepared for import into a Mercurial controlled HOME dir.

  ;;; Code:

  ;; News and email source setup.
  (setq gnus-nntp-server "news.sunsite.dk")
  (setq nntp-authinfo-function 'nntp-send-authinfo)
  (setq gnus-select-method '(nntp "news.sunsite.dk"))
  (setq gnus-secondary-select-methods '((nnml "")))

  ;; Where to save a copy of all outgoing messages.
  (setq gnus-message-archive-group "nnml:posted")

  ;; Save outgoing messages as 'read' by default.
  (setq gnus-gcc-mark-as-read t)

  ;; Avoid html email, if at all possible.
  (setq mm-discouraged-alternatives '("text/html"))

  ;; Show buttonized UI elements for PGP signed messages.
  (setq gnus-buttonized-mime-types
    '("multipart/alternative" ".*/signed"))

  ;; Where my global score rules are saved.
  (setq gnus-home-score-file
        "/home/keramida/News/gnus.SCORE")

  ;; Display and index buffer formats.
  (require 'timezone)
  (defun gnus-user-format-function-d (header)
    "Render article date in (YY-mm-dd) format."
      (let* ((date (mail-header-date header))
             (tz (timezone-parse-date date)))
                 (format "%02d-%02d-%02d"
                         (string-to-int (aref tz 0))
                         (string-to-int (aref tz 1))
                         (string-to-int (aref tz 2)))))

  (setq gnus-group-line-format "%M%S%8y: %G\n")
  (setq gnus-summary-line-format "%U%R%z%ud %I%(%[%4L: %-20,20n%]%) %S\n")

  ;; Message reply & followup citation line format.
  (defun gker-message-insert-citation-line ()
    "Insert a simple citation line."
    (when message-reply-headers
      (insert "On "
            (mail-header-date message-reply-headers)
            ", "
            (mail-header-from message-reply-headers)
            " wrote:")
      (newline)))
  ;; Bind my own citation line function, thus enabling it.
  (setq message-citation-line-function 'gker-message-insert-citation-line)

  ;; Prompt just once before saving many articles.
  (setq gnus-prompt-before-saving t)

  ;; How to save articles, by default.
  (setq gnus-default-article-saver 'gnus-summary-save-in-mail
        gnus-mail-save-name 'gnus-plain-save-name)

  ;; Use alt.foo.bar style names for folders
  (setq gnus-use-long-file-name t)

  ;; When entering a folder, don't automagically select the first message
  ;; and show it in an article buffer.
  (setq gnus-autoselect-first nil)

  ;; The headers that are shown for messages or news-articles.
  (setq gnus-visible-headers '("^Date:" "^From:" "^Reply-To:"
                                "^Followup-To:" "^Subject:" "^To:"
                                "^Cc:" "^Newsgroups:" "^Message-Id:"))
  ;; The order of headers shown in article buffers.
  (setq gnus-sorted-header-list '("^Date:" "^From:" "^Reply-To:"
                                "^Followup-To:" "^Subject:" "^To:"
                                "^Cc:" "^Newsgroups:" "^Message-Id:"))

  ;; Customizations for article display.
  (setq gnus-treat-display-face nil)
  (setq gnus-treat-display-x-face nil)
  (setq gnus-treat-display-smileys nil)

  ;; If displaying "text/html" is discouraged, images or other material
  ;; inside a "multipart/related" part might be overlooked when the
  ;; `gnus-mime-display-multipart-related-as-mixed' variable is `nil'.
  (setq gnus-mime-display-multipart-related-as-mixed t)

  ;; Customizations for the Gnus Agent.
  (setq gnus-agent-consider-all-articles nil
        gnus-agent-cache t)

  ;; Threading customizations.
  (setq gnus-summary-thread-gathering-function
        'gnus-gather-threads-by-references)

  ;; BBDB support for the Big Brother database.
  (require 'bbdb)
  (bbdb-initialize 'gnus 'message)

  ;; Mode hooks
  (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

  ;; Swap the default behavior of the 'e' and 'E' keys in the group summary
  ;; buffers.  Using a shifted key to expire articles is somewhat painful.  I
  ;; expire articles far too often, but I only very occasionally edit the
  ;; contents of email articles.  So it should be easier to expire them.
  (add-hook 'gnus-summary-mode-hook 'keramida-alter-summary-map)
  (add-hook 'gnus-article-prepare-hook 'keramida-alter-summary-map)
  (defun keramida-alter-summary-map ()
    ;; The `gnus-summary-put-mark-as-expirable-next' command can work with
    ;; a prefix arg too, so we wrap it in an interactive lambda.  It also
    ;; expects `gnus-summary-buffer' to be the current buffer, otherwise
    ;; it fails to work from *Article* buffers.
    (local-set-key "e" "MMen")
    (when nil
      (local-set-key "e"
        (lambda (n)
        (interactive "p")
        (with-current-buffer gnus-summary-buffer
          (gnus-summary-put-mark-as-expirable-next n)))))
    ;; Article editing is slightly simpler.  It's designed to work fine
    ;; when called from article buffers, so we don't need to do anything
    ;; special to invoke it.
    (local-set-key "E" 'gnus-summary-edit-article))

  ;;; Mail splitting with Gnus:
  ;;

  (setq nnmail-split-methods 'nnmail-split-fancy)
  (setq nnmail-split-fancy

        '(| ;; First messages tagged as spammy are saved to "mail.junk"

          ("x-spam-flag" "yes" "mail.junk")
          ("subject" ".*{Spam not delivered}.*" "mail.junk")
          ("subject" ".*{Possible Spam}.*" "mail.junk")

          ;; FreeBSD email filters.  The `core' and `developers' mailboxes is
          ;; treated in a special way, so that I won't lose email posted
          ;; there in the noise of a mailing list.

          (any "freebsd\\.org"

               (| (& (to "address@hidden" "mail.freebsd.core")
                     (to "address@hidden" "mail.freebsd.misc")

                     ("sender" "address@hidden" "mail.freebsd.cvs.doc")
                     ("sender" "owner-cvs-\\(\\w+\\)@.*freebsd\\.org" 
"mail.freebsd.cvs.\\1")
                     ("sender" "owner-freebsd-\\(\\w+\\)@.*freebsd\\.org" 
"mail.freebsd.\\1"))

                  ;; Fallback folder for all the other FreeBSD messages.
                  "mail.freebsd.misc"))

          ;; GNU mailing lists.

          ("sender" "address@hidden" "mail.gnu.emacs.devel")
          ("list-id" "ding\\.gnus\\.org" "mail.gnu.gnus.ding")
          ("list-id" "erc-discuss\\.gnu\\.org" "mail.gnu.erc.discuss")

          ;; HELLUG mailing lists.

          ("sender" "address@hidden" "mail.freebsd.doc.el")
          ("sender" "address@hidden" "mail.linux.greek.users")
          ("sender" "address@hidden" "mail.linux.greek.migrate")
          ("list-id" "plug\\.lists\\.hellug\\.gr" "mail.linux.greek.plug")

          ;; Mercurial mailing lists.

          ("sender" "address@hidden" "mail.mercurial")
          ("sender" "address@hidden" "mail.mercurial.devel")

          ;; TeX, LaTeX and ConTeXt mailing lists.

          ("list-id" "ntg-context\\.ntg\\.nl" "mail.tex.context")

          ;; OpenSolaris mailing lists

          ("list-id" "tools-discuss\\.opensolaris\\.org" 
"mail.opensolaris.tools.discuss")
          ("list-id" "scm-migration-discuss\\.opensolaris\\.org" 
"mail.opensolaris.scm-migration.discuss")

          ;; FFII mailing lists.

          ("list-id" "news\\.ffii\\.org" "mail.ffii-news")

          ;; Misc other mailing lists.

          ("list-id" "uvc-reviewers\\.thyrsus\\.com" 
"mail.misc.esr.uvc-reviewers")

          ;; Finally, the fallback folder for all messages that are *still*
          ;; undelivered, is the main `INBOX'.

          "mail.INBOX"))

  ;;; Local variables:
  ;;; mode: emacs-lisp
  ;;; End:
---------------------------------------------------------------------------

In GNU Emacs 23.0.60.2 (i386-unknown-freebsd8.0, GTK+ Version 2.12.7)
 of 2008-04-24 on kobe
configured using `configure '--prefix=/opt/emacs' '--with-x'
 '--with-x-toolkit=gtk' '--with-xpm' '--with-jpeg' '--with-tiff'
 '--with-gif' '--with-png''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: el_GR.ISO8859-7
  value of $LC_CTYPE: el_GR.ISO8859-7
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: el_GR.ISO8859-7
  value of $XMODIFIERS: nil
  locale-coding-system: greek-iso-8bit-unix
  default-enable-multibyte-characters: t

Major mode: Group

Minor modes in effect:
  gnus-topic-mode: t
  gnus-undo-mode: t
  erc-track-mode: t
  erc-notify-mode: t
  erc-autojoin-mode: t
  erc-autoaway-mode: t
  erc-stamp-mode: t
  erc-services-mode: t
  erc-networks-mode: t
  erc-pcomplete-mode: t
  erc-ring-mode: t
  erc-log-mode: t
  erc-irccontrols-mode: t
  erc-readonly-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t

Recent input:
O B ESC O B ESC O B ESC O B ESC O B ESC O B ESC O B
ESC O B ESC O B ESC O B ESC O A ESC O A ESC O A ESC
O A ESC O A ESC O A ESC O A ESC O A ESC O A ESC O A
ESC O A ESC O A ESC O A ESC O A ESC O B ESC O B RET
e e e e e e e e e e e q l l ESC O A ESC O A ESC O A
RET RET i G n u s SPC i n SPC o f f l i n e SPC m o
d e SPC d o e n s ' t SPC q u e u e " ESC b " C-e SPC
m e s s a s g e s ESC O B ESC O A ESC O D ESC O D ESC
O D DEL ESC O B ESC O B ESC O B ESC O B C-k C-k C-k
I SPC j u s t SPC r e b u i l t SPC E m a c s SPC f
r o m SPC a SPC C V S SPC s n a p s h o t SPC c h e
c k o u e d SPC DEL DEL DEL DEL DEL e d SPC o u t SPC
f r o m ESC DEL a t RET RET C-x k RET y RET ESC u q
ESC x e m a c s - r e DEL DEL b u TAB ESC DEL r e p
o TAB ESC DEL ESC DEL r e p o TAB r t TAB RET

Recent messages:
Deleting article 258 in mail.linux.greek.users
Deleting article 259 in mail.linux.greek.users
Expiring articles...done
Retrieving newsgroup: nnml:mail.gnu.emacs.devel...
Fetching headers for nnml:mail.gnu.emacs.devel...done
Scoring...done
Generating summary...done
Buffer *posting on mail.gnu.emacs.devel* modified; kill anyway? (y or n)
Expiring articles...done
Making completion list...