|
List Info Thread: 23.0.60; Gnus doesn't queue messages in offline mode
[1]
|
||||||||||||
|
about | contact Other archives ( Real Estate discussion Medical topics ) |
||||||||||||
23.0.60; Gnus doesn't queue messages in offline mode |
|
List Info Thread: 23.0.60; Gnus doesn't queue messages in offline mode
[1]
|
||||||||||||
|
about | contact Other archives ( Real Estate discussion Medical topics ) |
||||||||||||
freebsd.org>
;; 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: %Gn")
(setq gnus-summary-line-format "%U%R%z%ud %I%(%[%4L:
%-20,20n%]%) %Sn")
;; 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 "core