From: yamaoka Date: Tue, 29 Apr 2003 04:46:27 +0000 (+0000) Subject: Synch to Oort Gnus 200304290052. X-Git-Tag: t-gnus-6_15_21-00-quimby~17 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1da5f0ebaa42ef808cc57e1bfb58836c4b5e37de;p=elisp%2Fgnus.git- Synch to Oort Gnus 200304290052. --- diff --git a/ChangeLog b/ChangeLog index 15b81d4..d8cca3f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-04-28 Reiner Steib + + * GNUS-NEWS: Fixed X-Draft-Headers entry. + 2003-04-28 Katsumi Yamaoka * lisp/dgnushack.el: Make sure `dolist' is available; require diff --git a/GNUS-NEWS b/GNUS-NEWS index 2a7a921..7dde8ef 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -101,7 +101,7 @@ note in the body for cross-postings and followups (see the variables `message-cross-post-*'). ** References and X-Draft-Headers are no longer generated when you - start composing messages. + start composing messages and `message-generate-headers-first' is nil. ** Improved anti-spam features. @@ -130,6 +130,8 @@ add n-f-u-a-g-n-n again. If you were happy with the estimate and want to save some (minimal) time when getting new mail, remove the function. +** gnus-inews-mark-gcc-as-read has been renamed to gnus-gcc-mark-as-read. + ** Group Carbon Copy (GCC) quoting To support groups that contains SPC and other weird characters, groups @@ -334,8 +336,10 @@ variables should change those regexps accordingly. For example: ** Gnus supports PGP (RFC 1991/2440), PGP/MIME (RFC 2015/3156) and ** S/MIME (RFC 2630-2633). -It needs an external S/MIME and OpenPGP implementation, but no additional -lisp libraries. +It needs an external S/MIME and OpenPGP implementation, but no +additional lisp libraries. This add several menu items to the +Attachments menu, and C-c RET key bindings, when composing messages. +This also obsoletes `gnus-article-hide-pgp-hook'. ** Gnus inlines external parts (message/external). diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 456039c..9060488 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,66 @@ +2003-04-29 Simon Josefsson + + * mml2015.el (mml2015-pgg-sign): Use mml-sender instead of + message-sender. + + * mml.el (mml-generate-mime-1): Set mml-sender too. + +2003-04-29 Jesper Harder + + * gnus-sum.el (gnus-summary-display-while-building): Docstring fix. + + * mm-url.el (mm-url-use-external): do. + +2003-04-29 Simon Josefsson + + * canlock.el (mail-fetch-field): Autoload it (fix xemacs compile + warnings). + + * sieve-mode.el (c-mode): Ditto. + + * pgg.el (run-at-time): Ditto. + + * mm-url.el (require): Require timer when compiling for + with-timeout macro (fix xemacs compile warnings). + +2003-04-28 Dave Love + + * gnus-util.el (nnheader): Don't require. + (Nnheader-narrow-to-headers, nnheader-replace-chars-in-string): + Autoload. + + * spam.el: Require cl when compiling. + + * dns.el: Require cl when compiling. + +2003-04-28 Jesper Harder + + * gnus-art.el (gnus-article-goto-next-page) + (gnus-article-goto-prev-page): Revert 2003-02-12 change to make + gnus-pick-mode work. + +2003-04-28 Steve Youngs + + * Makefile.in (FLAGS): Use @FLAGS@. + +2003-04-27 Reiner Steib + + * gnus-art.el (gnus-mime-display-multipart-as-mixed) + (gnus-mime-display-multipart-alternative-as-mixed) + (gnus-mime-display-multipart-related-as-mixed): Added doc-strings, + allow customization. + +2003-04-27 Kevin Greiner + + * dgnushack.el (dgnushack-compile-verbosely): New function. Not + currently called (See source for explanation). + 2003-04-27 Lars Magne Ingebrigtsen + * gnus-sum.el (gnus-summary-catchup): Don't mark ticked messages. + (gnus-summary-mark-read-and-unread-as-read): Take an optional + mark. + * gnus.el (gnus-version-number): Bump. 2003-04-27 06:47:31 Lars Magne Ingebrigtsen @@ -60,6 +121,10 @@ 2003-04-24 Dave Love + * mm-encode.el (mm-long-lines-p): Autoload. + (mm-encode-content-transfer-encoding): Don't try to make buffer + unibyte before decoding. Don't ignore errors for base64 encoding. + * qp.el (quoted-printable-decode-region): Use mm-insert-byte. Signal error on malformed text, as for base64. (quoted-printable-encode-region): DTRT in Emacs 22. diff --git a/lisp/Makefile.in b/lisp/Makefile.in index ca38edb..00ae7ed 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in @@ -6,7 +6,7 @@ subdir = lisp top_srcdir = @top_srcdir@ EMACS = @EMACS@ -FLAGS = -batch -q -no-site-file -l $(srcdir)/dgnushack.el +FLAGS = @FLAGS@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ SHELL = /bin/sh diff --git a/lisp/canlock.el b/lisp/canlock.el index b52afed..e307ae2 100644 --- a/lisp/canlock.el +++ b/lisp/canlock.el @@ -1,6 +1,6 @@ ;;; canlock.el --- functions for Cancel-Lock feature -;; Copyright (C) 1998, 1999, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2001, 2002, 2003 Free Software Foundation, Inc. ;; Author: Katsumi Yamaoka ;; Keywords: news, cancel-lock, hmac, sha1, rfc2104 @@ -45,6 +45,7 @@ (autoload 'sha1-binary "sha1-el") (autoload 'base64-encode-string "base64") +(autoload 'mail-fetch-field "mail-utils") (defgroup canlock nil "The Cancel-Lock feature." diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index fca918f..e8612f5 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -614,6 +614,13 @@ dgnushack-compile-verbosely. All other users should continue to use dgnushack-compile." (dgnushack-compile t)) +(defun dgnushack-compile-verbosely () + "Call dgnushack-compile with warnings ENABLED. If you are compiling +patches to gnus, you should consider modifying make.bat to call +dgnushack-compile-verbosely. All other users should continue to use +dgnushack-compile." + (dgnushack-compile t)) + (defun dgnushack-compile (&optional warn) ;;(setq byte-compile-dynamic t) (unless warn diff --git a/lisp/dns.el b/lisp/dns.el index 8268358..349d29f 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -25,6 +25,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + (require 'mm-util) (defvar dns-timeout 5 diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index a714507..fa464f1 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4889,9 +4889,28 @@ If no internal viewer is available, use an external viewer." (narrow-to-region (point-min) (point)) (gnus-treat-article 'head)))))))) -(defvar gnus-mime-display-multipart-as-mixed nil) -(defvar gnus-mime-display-multipart-alternative-as-mixed nil) -(defvar gnus-mime-display-multipart-related-as-mixed nil) +(defcustom gnus-mime-display-multipart-as-mixed nil + "Display \"multipart\" parts as \"multipart/mixed\". + +If `t', it overrides `nil' values of +`gnus-mime-display-multipart-alternative-as-mixed' and +`gnus-mime-display-multipart-related-as-mixed'." + :group 'gnus-article-mime + :type 'boolean) + +(defcustom gnus-mime-display-multipart-alternative-as-mixed nil + "Display \"multipart/alternative\" parts as \"multipart/mixed\"." + :group 'gnus-article-mime + :type 'boolean) + +(defcustom gnus-mime-display-multipart-related-as-mixed nil + "Display \"multipart/related\" parts as \"multipart/mixed\". + +If displaying \"text/html\" is discouraged \(see +`mm-discouraged-alternatives'\) images or other material inside a +\"multipart/related\" part might be overlooked when this variable is `nil'." + :group 'gnus-article-mime + :type 'boolean) (defun gnus-mime-display-part (handle) (cond @@ -5267,14 +5286,31 @@ If given a numerical ARG, move forward ARG pages." (defun gnus-article-goto-next-page () "Show the next page of the article." (interactive) - (gnus-eval-in-buffer-window gnus-summary-buffer - (gnus-summary-next-page))) + (when (gnus-article-next-page) + (goto-char (point-min)) + (gnus-article-read-summary-keys nil (gnus-character-to-event ?n)))) + (defun gnus-article-goto-prev-page () "Show the next page of the article." (interactive) - (gnus-eval-in-buffer-window gnus-summary-buffer - (gnus-summary-prev-page))) + (if (bobp) + (gnus-article-read-summary-keys nil (gnus-character-to-event ?p)) + (gnus-article-prev-page nil))) + +;; This is cleaner but currently breaks `gnus-pick-mode': +;; +;; (defun gnus-article-goto-next-page () +;; "Show the next page of the article." +;; (interactive) +;; (gnus-eval-in-buffer-window gnus-summary-buffer +;; (gnus-summary-next-page))) +;; +;; (defun gnus-article-goto-prev-page () +;; "Show the next page of the article." +;; (interactive) +;; (gnus-eval-in-buffer-window gnus-summary-buffer +;; (gnus-summary-prev-page))) (defun gnus-article-next-page (&optional lines) "Show the next page of the current article. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7035aa3..acdac21 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -9130,7 +9130,7 @@ If nil, use to the current newsgroup method." :group 'gnus-summary-mail) (defcustom gnus-summary-display-while-building nil - "If not-nil, show and update the summary buffer as it's being built. + "If non-nil, show and update the summary buffer as it's being built. If the value is t, update the buffer after every line is inserted. If the value is an integer (N), update the display every N lines." :group 'gnus-thread @@ -10092,12 +10092,13 @@ The difference between N and the number of marks cleared is returned." (when (memq gnus-current-article gnus-newsgroup-unreads) (gnus-summary-mark-article gnus-current-article gnus-read-mark))) -(defun gnus-summary-mark-read-and-unread-as-read () +(defun gnus-summary-mark-read-and-unread-as-read (&optional new-mark) "Intended to be used by `gnus-summary-mark-article-hook'." (let ((mark (gnus-summary-article-mark))) (when (or (gnus-unread-mark-p mark) (gnus-read-mark-p mark)) - (gnus-summary-mark-article gnus-current-article gnus-read-mark)))) + (gnus-summary-mark-article gnus-current-article + (or new-mark gnus-read-mark))))) (defun gnus-summary-mark-unread-as-ticked () "Intended to be used by `gnus-summary-mark-article-hook'." @@ -10238,9 +10239,9 @@ The number of articles marked as read is returned." (if (and to-here reverse) (progn (goto-char to-here) - (while (and - (gnus-summary-mark-article-as-read gnus-catchup-mark) - (gnus-summary-find-next (not all))))) + (gnus-summary-mark-read-and-unread-as-read gnus-catchup-mark) + (while (gnus-summary-find-next (not all)) + (gnus-summary-mark-article-as-read gnus-catchup-mark))) (when (gnus-summary-first-subject (not all)) (while (and (if to-here (< (point) to-here) t) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 30d17c1..2b6190d 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -39,7 +39,6 @@ (eval-when-compile (require 'static)) (require 'custom) -(require 'nnheader) (require 'time-date) (require 'netrc) @@ -48,7 +47,9 @@ (autoload 'gnus-get-buffer-window "gnus-win") (autoload 'rmail-insert-rmail-file-header "rmail") (autoload 'rmail-count-new-messages "rmail") - (autoload 'rmail-show-message "rmail")) + (autoload 'rmail-show-message "rmail") + (autoload 'nnheader-narrow-to-headers "nnheader") + (autoload 'nnheader-replace-chars-in-string "nnheader")) (eval-and-compile (cond @@ -259,7 +260,6 @@ (delete-char 1)) (goto-char (next-single-property-change (point) prop nil (point-max)))))) -(require 'nnheader) (defun gnus-newsgroup-directory-form (newsgroup) "Make hierarchical directory name from NEWSGROUP name." (let* ((newsgroup (gnus-newsgroup-savable-name newsgroup)) @@ -1226,12 +1226,13 @@ If you find some problem with the directory separator character, try (+ 10 (- x ?A))) (- x ?0))) +;; Fixme: Do it like QP. (defun gnus-url-unhex-string (str &optional allow-newlines) "Remove %XX, embedded spaces, etc in a url. If optional second argument ALLOW-NEWLINES is non-nil, then allow the decoding of carriage returns and line feeds in the string, which is normally forbidden in URL encoding." - (setq str (or (mm-subst-char-in-string ?+ ? str) "")) + (setq str (or (mm-subst-char-in-string ?+ ? str) "")) ; why `or'? (let ((tmp "") (case-fold-search t)) (while (string-match "%[0-9a-f][0-9a-f]" str) diff --git a/lisp/mm-url.el b/lisp/mm-url.el index 6098ce7..0896821 100644 --- a/lisp/mm-url.el +++ b/lisp/mm-url.el @@ -37,6 +37,9 @@ (eval-and-compile (autoload 'exec-installed-p "path-util")) +(eval-when-compile + (require 'timer)) + (defgroup mm-url nil "A wrapper of url package and external url command for Gnus." :group 'gnus) @@ -45,7 +48,7 @@ (condition-case nil (require 'url) (error nil))) - "*If not-nil, use external grab program `mm-url-program'." + "*If non-nil, use external grab program `mm-url-program'." :type 'boolean :group 'mm-url) diff --git a/lisp/mml.el b/lisp/mml.el index 8b865dc..415102d 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -541,8 +541,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." mml-encrypt-alist)) sender recipients) (when (or sign-item encrypt-item) - (if (setq sender (cdr (assq 'sender cont))) - (message-options-set 'message-sender sender)) + (when (setq sender (cdr (assq 'sender cont))) + (message-options-set 'mml-sender sender) + (message-options-set 'message-sender sender)) (if (setq recipients (cdr (assq 'recipients cont))) (message-options-set 'message-recipients recipients)) (let ((style (mml-signencrypt-style (first (or sign-item encrypt-item))))) diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 7a4d763..ef2fe9f 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -808,7 +808,7 @@ (defun mml2015-pgg-sign (cont) (let ((pgg-errors-buffer mml2015-result-buffer) (boundary (funcall mml-boundary-function (incf mml-multipart-number))) - (pgg-default-user-id (or (message-options-get 'message-sender) + (pgg-default-user-id (or (message-options-get 'mml-sender) pgg-default-user-id))) (unless (pgg-sign-region (point-min) (point-max)) (pop-to-buffer mml2015-result-buffer) diff --git a/lisp/sieve-mode.el b/lisp/sieve-mode.el index e804e96..e4945c9 100644 --- a/lisp/sieve-mode.el +++ b/lisp/sieve-mode.el @@ -49,6 +49,7 @@ (autoload 'sieve-manage "sieve") (autoload 'sieve-upload "sieve") +(autoload 'c-mode "cc-mode") (require 'easymenu) (eval-when-compile (require 'font-lock)) diff --git a/lisp/spam.el b/lisp/spam.el index 2bc099e..4f84c11 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -36,6 +36,8 @@ (require 'path-util) +(eval-when-compile (require 'cl)) + (require 'gnus-sum) (require 'gnus-uu) ; because of key prefix issues diff --git a/texi/ChangeLog b/texi/ChangeLog index 164a4a9..7f83ab6 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,5 +1,16 @@ +2003-04-27 Reiner Steib + + * gnus.texi (Group Parameters): Fix markup. + (Web Archive): Ditto. + 2003-04-27 Jesper Harder + * texi2latex.el (latexi-translate-file): Support @display, + @group, @smallexample, @subsubheading. + + * gnus.texi, gnus-faq.texi: Fix some of the worst overfull and + underfull hboxes. + * message.texi, gnus.texi: Use the second arg to @uref where it makes sense to make HTML and PDF output look nicer. diff --git a/texi/gnus-faq.texi b/texi/gnus-faq.texi index 00dec35..7b1ab40 100644 --- a/texi/gnus-faq.texi +++ b/texi/gnus-faq.texi @@ -39,13 +39,15 @@ Web browser, the official hypertext version is at Please submit features and suggestions to the - @uref{mailto:faq-discuss@@my.gnus.org,FAQ discussion list}. + @email{faq-discuss@@my.gnus.org,FAQ discussion list}. The list is protected against junk mail with - @uref{http://smarden.org/qconfirm/index.html,qconfirm}. As + @uref{http://smarden.org/qconfirm/index.html,qconfirm, qconfirm}. As a subscriber, your submissions will automatically pass. You can also subscribe to the list by sending a blank email to @email{faq-discuss-subscribe@@my.gnus.org} - and @uref{http://mail1.kens.com/cgi-bin/ezmlm-browse?command=monthbythread%26list=faq-discuss,browse the archive}. + and + @uref{http://mail1.kens.com/cgi-bin/ezmlm-browse?command=monthbythread%26list=faq-discuss,browse + the archive, browse the archive}. @node FAQ - Introduction, FAQ 1 - Installation, Frequently Asked Questions, Frequently Asked Questions @comment node-name, next, previous, up @@ -76,7 +78,7 @@ Gnus is a Usenet Newsreader and Electronic Mail User Agent implemented Justin! - If you have a Web browser, the official hypertext version is at: + If you have a Web browser, the official hypertext version is at:@* @uref{http://my.gnus.org/FAQ/}. This version is much nicer than the unofficial hypertext versions that are archived at Utrecht, Oxford, Smart Pages, Ohio @@ -92,7 +94,7 @@ Gnus is a Usenet Newsreader and Electronic Mail User Agent implemented @ifnottex @node FAQ 1 - Installation, FAQ 2 - Startup / Group buffer, FAQ - Introduction, Frequently Asked Questions @end ifnottex -@section Installation +@subsection Installation @menu * [1.1]:: What is the latest version of Gnus? @@ -107,7 +109,7 @@ Gnus is a Usenet Newsreader and Electronic Mail User Agent implemented @ifnottex @node [1.1], [1.2], FAQ 1 - Installation, FAQ 1 - Installation @end ifnottex -@subheading Question 1.1: +@subsubheading Question 1.1: What is the latest version of Gnus? @@ -123,7 +125,7 @@ Answer: @ifnottex @node [1.2], [1.3], [1.1], FAQ 1 - Installation @end ifnottex -@subheading Question 1.2: +@subsubheading Question 1.2: What's new in 5.10.0? @@ -144,17 +146,17 @@ Answer: Major rewrite of the Gnus agent, Gnus agent is now active by default. - +@item Many new article washing functions for dealing with ugly formatted articles. - +@item Anti Spam features. - +@item message-utils now included in Gnus. - +@item New format specifiers for summary lines, e.g. %B for a complex trn-style thread tree. @@ -163,7 +165,7 @@ Answer: @ifnottex @node [1.3], [1.4], [1.2], FAQ 1 - Installation @end ifnottex -@subheading Question 1.3: +@subsubheading Question 1.3: Where and how to get Gnus? @@ -180,7 +182,7 @@ Answer: @ifnottex @node [1.4], [1.5], [1.3], FAQ 1 - Installation @end ifnottex -@subheading Question 1.4: +@subsubheading Question 1.4: What to do with the tarball now? @@ -201,12 +203,10 @@ Answer: @example - (add-to-list 'load-path "/path/to/gnus/lisp") (if (featurep 'xemacs) (add-to-list 'Info-directory-list "/path/to/gnus/texi/") (add-to-list 'Info-default-directory-list "/path/to/gnus/texi/")) - @end example @noindent @@ -217,7 +217,7 @@ Answer: @ifnottex @node [1.5], [1.6], [1.4], FAQ 1 - Installation @end ifnottex -@subheading Question 1.5: +@subsubheading Question 1.5: Which version of Emacs do I need? @@ -229,7 +229,7 @@ Answer: @ifnottex @node [1.6], , [1.5], FAQ 1 - Installation @end ifnottex -@subheading Question 1.6: +@subsubheading Question 1.6: How do I run Gnus on both Emacs and XEmacs? @@ -243,7 +243,7 @@ Answer: @ifnottex @node FAQ 2 - Startup / Group buffer, FAQ 3 - Getting messages, FAQ 1 - Installation, Frequently Asked Questions @end ifnottex -@section Startup / Group buffer +@subsection Startup / Group buffer @menu * [2.1]:: Every time I start Gnus I get a message "Gnus auto-save file exists. Do you want to read it?", what does this mean and how to prevent it? @@ -256,7 +256,7 @@ Answer: @ifnottex @node [2.1], [2.2], FAQ 2 - Startup / Group buffer, FAQ 2 - Startup / Group buffer @end ifnottex -@subheading Question 2.1: +@subsubheading Question 2.1: Every time I start Gnus I get a message "Gnus auto-save file exists. Do you want to read it?", what does this mean @@ -279,7 +279,7 @@ Answer: @ifnottex @node [2.2], [2.3], [2.1], FAQ 2 - Startup / Group buffer @end ifnottex -@subheading Question: 2.2 +@subsubheading Question: 2.2 Gnus doesn't remember which groups I'm subscribed to, what's this? @@ -294,7 +294,7 @@ Answer: @ifnottex @node [2.3], [2.4], [2.2], FAQ 2 - Startup / Group buffer @end ifnottex -@subheading Question 2.3: +@subsubheading Question 2.3: How to change the format of the lines in Group buffer? @@ -316,7 +316,7 @@ Answer: @ifnottex @node [2.4], [2.5], [2.3], FAQ 2 - Startup / Group buffer @end ifnottex -@subheading Question 2.4: +@subsubheading Question 2.4: My group buffer becomes a bit crowded, is there a way to sort my groups into categories so I can easier browse @@ -343,7 +343,7 @@ Answer: @ifnottex @node [2.5], , [2.4], FAQ 2 - Startup / Group buffer @end ifnottex -@subheading Question 2.5: +@subsubheading Question 2.5: How to manually sort the groups in Group buffer? How to sort the groups in a topic? @@ -359,7 +359,7 @@ Answer: @ifnottex @node FAQ 3 - Getting messages, FAQ 4 - Reading messages, FAQ 2 - Startup / Group buffer, Frequently Asked Questions @end ifnottex -@section Getting messages +@subsection Getting messages @menu * [3.1]:: I just installed Gnus, started it via M-x gnus but it only says "nntp (news) open error", what to do? @@ -378,7 +378,7 @@ Answer: @ifnottex @node [3.1], [3.2], FAQ 3 - Getting messages, FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.1: +@subsubheading Question 3.1: I just installed Gnus, started it via @samp{M-x gnus} @@ -393,17 +393,15 @@ Answer: @example - (setq gnus-select-method '(nntp "news.yourprovider.net")) (setq user-mail-address "you@@yourprovider.net") (setq user-full-name "Your Name") - @end example @ifnottex @node [3.2], [3.3], [3.1], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.2: +@subsubheading Question 3.2: I'm working under Windows and have no idea what ~/.gnus means. @@ -446,7 +444,7 @@ SET HOME=C:\myhome @ifnottex @node [3.3], [3.4], [3.2], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.3: +@subsubheading Question 3.3: My news server requires authentication, how to store user name and password on disk? @@ -477,7 +475,7 @@ chmod 600 ~/.authinfo @ifnottex @node [3.4], [3.5], [3.3], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.4: +@subsubheading Question 3.4: Gnus seems to start up OK, but I can't find out how to subscribe to a group. @@ -497,7 +495,7 @@ Answer: @ifnottex @node [3.5], [3.6], [3.4], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.5: +@subsubheading Question 3.5: Gnus doesn't show all groups / Gnus says I'm not allowed to post on this server as well as I am, what's that? @@ -521,7 +519,7 @@ force yes @ifnottex @node [3.6], [3.7], [3.5], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.6: +@subsubheading Question 3.6: I want Gnus to fetch news from several servers, is this possible? @@ -534,16 +532,16 @@ Answer: @example - -(add-to-list 'gnus-secondary-select-methods '(nntp "news.yourSecondProvider.net")) -(add-to-list 'gnus-secondary-select-methods '(nntp "news.yourThirdProvider.net")) - +(add-to-list 'gnus-secondary-select-methods + '(nntp "news.yourSecondProvider.net")) +(add-to-list 'gnus-secondary-select-methods + '(nntp "news.yourThirdProvider.net")) @end example @ifnottex @node [3.7], [3.8], [3.6], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.7: +@subsubheading Question 3.7: And how about local spool files? @@ -555,9 +553,7 @@ Answer: @example - (add-to-list 'gnus-secondary-select-methods '(nnspool "")) - @end example @noindent @@ -565,9 +561,7 @@ Answer: @example - (setq gnus-select-method '(nnspool "")) - @end example @noindent @@ -576,10 +570,8 @@ Answer: @example - (add-to-list 'gnus-secondary-select-methods '(nnspool "" (nnspool-directory "/usr/local/myspoolddir"))) - @end example @noindent @@ -590,7 +582,7 @@ Answer: @ifnottex @node [3.8], [3.9], [3.7], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.8: +@subsubheading Question 3.8: OK, reading news works now, but I want to be able to read my mail with Gnus, too. How to do it? @@ -620,9 +612,7 @@ Answer: @example - (add-to-list 'gnus-secondary-select-methods '(nnml "")) - @end example @noindent @@ -630,9 +620,7 @@ Answer: @example - (add-to-list 'gnus-secondary-select-methods '(nnfolder "")) - @end example @@ -641,12 +629,10 @@ Answer: @example - (eval-after-load "mail-source" '(add-to-list 'mail-sources '(pop :server "pop.YourProvider.net" :user "yourUserName" :password "yourPassword")) - @end example @noindent @@ -656,10 +642,8 @@ Answer: @example - (eval-after-load "mail-source" - '(add-to-list 'mail-sources '(file :path "/path/to/spool/file")) - + '(add-to-list 'mail-sources '(file :path "/path/to/spool/file"))) @end example @noindent @@ -668,11 +652,9 @@ Answer: @example - (eval-after-load "mail-source" '(add-to-list 'mail-sources '(maildir :path "/path/to/Maildir/" :subdirs ("cur" "new"))) - @end example @noindent @@ -682,11 +664,9 @@ Answer: @example - (eval-after-load "mail-source" '(add-to-list 'mail-sources '(directory :path "/path/to/procmail-dir/" :suffix ".prcml")) - @end example @noindent @@ -702,17 +682,15 @@ Answer: @example - (setq send-mail-function 'smtpmail-send-it) (setq message-send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "smtp.yourProvider.net") - @end example @ifnottex @node [3.9], [3.10], [3.8], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.9: +@subsubheading Question 3.9: And what about IMAP? @@ -727,7 +705,6 @@ Answer: @example - (add-to-list 'mail-sources '(imap :server "mail.mycorp.com" :user "username" :pass "password" @@ -735,7 +712,6 @@ Answer: :authentication login :mailbox "INBOX" :fetchflag "\\Seen")) - @end example @noindent @@ -751,13 +727,12 @@ Answer: @example - -(add-to-list 'gnus-secondary-select-methods - '(nnimap "Give the baby a name" - (nnimap-address "imap.yourProvider.net") - (nnimap-port 143) - (nnimap-list-pattern "archive.*"))) - +(add-to-list + 'gnus-secondary-select-methods + '(nnimap "Give the baby a name" + (nnimap-address "imap.yourProvider.net") + (nnimap-port 143) + (nnimap-list-pattern "archive.*"))) @end example @noindent @@ -768,7 +743,7 @@ Answer: @ifnottex @node [3.10], [3.11], [3.9], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.10: +@subsubheading Question 3.10: At the office we use one of those MS Exchange servers, can I use Gnus to read my mail from it? @@ -783,7 +758,7 @@ Answer: @ifnottex @node [3.11], , [3.10], FAQ 3 - Getting messages @end ifnottex -@subheading Question 3.11: +@subsubheading Question 3.11: Can I tell Gnus not to delete the mails on the server it retrieves via POP3? @@ -824,7 +799,7 @@ Answer: @ifnottex @node FAQ 4 - Reading messages, FAQ 5 - Composing messages, FAQ 3 - Getting messages, Frequently Asked Questions @end ifnottex -@section Reading messages +@subsection Reading messages @menu * [4.1]:: When I enter a group, all read messages are gone. How to view them again? @@ -847,7 +822,7 @@ Answer: @ifnottex @node [4.1], [4.2], FAQ 4 - Reading messages, FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.1: +@subsubheading Question 4.1: When I enter a group, all read messages are gone. How to view them again? @@ -866,9 +841,7 @@ Answer: @example - (setq gnus-fetch-old-headers 'some) - @end example @@ -890,7 +863,7 @@ Answer: @ifnottex @node [4.2], [4.3], [4.1], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.2: +@subsubheading Question 4.2: How to tell Gnus to show an important message every time I enter a group, even when it's read? @@ -908,7 +881,7 @@ Answer: @ifnottex @node [4.3], [4.4], [4.2], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.3: +@subsubheading Question 4.3: How to view the headers of a message? @@ -923,7 +896,7 @@ Answer: @ifnottex @node [4.4], [4.5], [4.3], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.4: +@subsubheading Question 4.4: How to view the raw unformatted message? @@ -939,7 +912,7 @@ Answer: @ifnottex @node [4.5], [4.6], [4.4], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.5: +@subsubheading Question 4.5: How can I change the headers Gnus displays by default at the top of the article buffer? @@ -953,18 +926,16 @@ Answer: date, and if the header exists, Followup-To and MUA / NUA say this in ~/.gnus: - @example - (setq gnus-visible-headers -"^\\(From:\\|Subject:\\|Date:\\|Followup-To:\\|X-Newsreader:\\|User-Agent:\\|X-Mailer:\\)") - + "^\\(From:\\|Subject:\\|Date:\\|Followup-To:\ +\\|X-Newsreader:\\|User-Agent:\\|X-Mailer:\\)") @end example @ifnottex @node [4.6], [4.7], [4.5], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.6: +@subsubheading Question 4.6: I'd like Gnus NOT to render HTML-mails but show me the text part if it's available. How to do it? @@ -976,12 +947,10 @@ Answer: @example - (eval-after-load "mm-decode" '(progn (add-to-list 'mm-discouraged-alternatives "text/html") (add-to-list 'mm-discouraged-alternatives "text/richtext"))) - @end example @noindent @@ -989,9 +958,7 @@ Answer: @example - (setq mm-automatic-display (remove "text/html" mm-automatic-display)) - @end example @noindent @@ -1000,7 +967,7 @@ Answer: @ifnottex @node [4.7], [4.8], [4.6], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.7: +@subsubheading Question 4.7: Can I use some other browser than w3 to render my HTML-mails? @@ -1015,15 +982,13 @@ Answer: @example - (setq mm-text-html-renderer 'links) - @end example @ifnottex @node [4.8], [4.9], [4.7], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.8: +@subsubheading Question 4.8: Is there anything I can do to make poorly formatted mails more readable? @@ -1047,7 +1012,7 @@ Answer: @ifnottex @node [4.9], [4.10], [4.8], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.9: +@subsubheading Question 4.9: Is there a way to automatically ignore posts by specific authors or with specific words in the subject? And can I @@ -1096,10 +1061,8 @@ Answer: @example - (("references" ("hschmi22.userfqdn.rz-online.de" 500 nil s)) ("message-id" ("hschmi22.userfqdn.rz-online.de" 999 nil s))) - @end example @noindent @@ -1118,9 +1081,7 @@ Answer: @example - (setq gnus-use-adaptive-scoring t) - @end example @noindent @@ -1129,7 +1090,7 @@ Answer: @ifnottex @node [4.10], [4.11], [4.9], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.10: +@subsubheading Question 4.10: How can I disable threading in some (e.g. mail-) groups, or set other variables specific for some groups? @@ -1149,7 +1110,7 @@ Answer: @ifnottex @node [4.11], [4.12], [4.10], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.11: +@subsubheading Question 4.11: Can I highlight messages written by me and follow-ups to those? @@ -1168,7 +1129,7 @@ Answer: @ifnottex @node [4.12], [4.13], [4.11], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.12: +@subsubheading Question 4.12: The number of total messages in a group which Gnus displays in group buffer is by far to high, especially in @@ -1195,7 +1156,7 @@ Answer: @ifnottex @node [4.13], [4.14], [4.12], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.13: +@subsubheading Question 4.13: I don't like the layout of summary and article buffer, how to change it? Perhaps even a three pane display? @@ -1215,9 +1176,10 @@ Answer: @example - -(gnus-add-configuration '(article (vertical 1.0 (summary .35 point) (article 1.0)))) - +(gnus-add-configuration + '(article (vertical 1.0 + (summary .35 point) + (article 1.0)))) @end example @@ -1226,7 +1188,6 @@ Answer: @example - (gnus-add-configuration '(article (horizontal 1.0 @@ -1242,13 +1203,12 @@ Answer: (group 1.0)) (vertical 1.0 (summary 1.0 point))))) - @end example @ifnottex @node [4.14], [4.15], [4.13], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.14: +@subsubheading Question 4.14: I don't like the way the Summary buffer looks, how to tweak it? @@ -1273,17 +1233,15 @@ Answer: @example - -(setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n") - +(setq gnus-summary-line-format + ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n") @end example @noindent resulting in: -@example - +@smallexample :O Re: [Richard Stallman] rfc2047.el | 13 |Lars Magne Ingebrigt |Sat 23:06 :O Re: Revival of the ding-patches list | 13 |Lars Magne Ingebrigt |Sat 23:12 :R > Re: Find correct list of articles for a gro| 25 |Lars Magne Ingebrigt |Sat 23:16 @@ -1296,13 +1254,12 @@ Answer: :R > Re: Gnus still doesn't count messages prope| 23 |Lars Magne Ingebrigt |Sat 23:57 :O \-> ... | 18 |Kai Grossjohann | 0:35 :O \-> ... | 13 |Lars Magne Ingebrigt | 0:56 - -@end example +@end smallexample @ifnottex @node [4.15], , [4.14], FAQ 4 - Reading messages @end ifnottex -@subheading Question 4.15: +@subsubheading Question 4.15: How to split incoming mails in several groups? @@ -1329,9 +1286,7 @@ Answer: @example - (setq nnmail-crosspost nil) - @end example @noindent @@ -1349,38 +1304,44 @@ Answer: @example - (setq nnmail-split-methods '(("duplicates" "^Gnus-Warning:.*duplicate") ("XEmacs-NT" "^\\(To:\\|CC:\\).*localpart@@xemacs.bla.*") ("Gnus-Tut" "^\\(To:\\|CC:\\).*localpart@@socha.bla.*") ("tcsh" "^\\(To:\\|CC:\\).*localpart@@mx.gw.bla.*") ("BAfH" "^\\(To:\\|CC:\\).*localpart@@.*uni-muenchen.bla.*") - ("Hamster-src" "^\\(CC:\\|To:\\).*hamster-sourcen@@yahoogroups.\\(de\\|com\\).*") + ("Hamster-src" + "^\\(CC:\\|To:\\).*hamster-sourcen@@yahoogroups.\\(de\\|com\\).*") ("Tagesschau" "^From: tagesschau $") ("Replies" "^\\(CC:\\|To:\\).*localpart@@Frank-Schmitt.bla.*") - ("EK" "^From:.*\\(localpart@@privateprovider.bla\\|localpart@@workplace.bla\\).*") - ("Spam" "^Content-Type:.*\\(ks_c_5601-1987\\|EUC-KR\\|big5\\|iso-2022-jp\\).*") - ("Spam" "^Subject:.*\\(This really work\\|XINGA\\|ADV:\\|XXX\\|adult\\|sex\\).*") - ("Spam" "^Subject:.*\\(\=\?ks_c_5601-1987\?\\|\=\?euc-kr\?\\|\=\?big5\?\\).*") + ("EK" + "^From:.*\\(localpart@@privateprovider.bla\\|localpart@@workplace.bla\\).*") + ("Spam" + "^Content-Type:.*\\(ks_c_5601-1987\\|EUC-KR\\|big5\\|iso-2022-jp\\).*") + ("Spam" + "^Subject:.*\\(This really work\\|XINGA\\|ADV:\\|XXX\\|adult\\|sex\\).*") + ("Spam" + "^Subject:.*\\(\=\?ks_c_5601-1987\?\\|\=\?euc-kr\?\\|\=\?big5\?\\).*") ("Spam" "^X-Mailer:\\(.*BulkMailer.*\\|.*MIME::Lite.*\\|\\)") - ("Spam" "^X-Mailer:\\(.*CyberCreek Avalanche\\|.*http\:\/\/GetResponse\.com\\)") - ("Spam" "^From:.*\\(verizon\.net\\|prontomail\.com\\|money\\|ConsumerDirect\\).*") + ("Spam" + "^X-Mailer:\\(.*CyberCreek Avalanche\\|.*http\:\/\/GetResponse\.com\\)") + ("Spam" + "^From:.*\\(verizon\.net\\|prontomail\.com\\|money\\|ConsumerDirect\\).*") ("Spam" "^Delivered-To: GMX delivery to spamtrap@@gmx.bla$") ("Spam" "^Received: from link2buy.com") ("Spam" "^CC: .*azzrael@@t-online.bla") ("Spam" "^X-Mailer-Version: 1.50 BETA") ("Uni" "^\\(CC:\\|To:\\).*localpart@@uni-koblenz.bla.*") - ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.bla\\|adress@@two.bla\\)") + ("Inbox" + "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.bla\\|adress@@two.bla\\)") ("Spam" ""))) - @end example @ifnottex @node FAQ 5 - Composing messages, FAQ 6 - Old messages, FAQ 4 - Reading messages, Frequently Asked Questions @end ifnottex -@section Composing messages +@subsection Composing messages @menu * [5.1]:: What are the basic commands I need to know for sending mail and postings? @@ -1400,7 +1361,7 @@ Answer: @ifnottex @node [5.1], [5.2], FAQ 5 - Composing messages, FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.1: +@subsubheading Question 5.1: What are the basic commands I need to know for sending mail and postings? @@ -1434,7 +1395,7 @@ Answer: @ifnottex @node [5.2], [5.3], [5.1], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.2: +@subsubheading Question 5.2: How to enable automatic word-wrap when composing messages? @@ -1445,12 +1406,10 @@ Answer: @example - (add-hook 'message-mode-hook (lambda () (setq fill-column 72) (turn-on-auto-fill))) - @end example @noindent @@ -1460,7 +1419,7 @@ Answer: @ifnottex @node [5.3], [5.4], [5.2], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.3: +@subsubheading Question 5.3: How to set stuff like From, Organization, Reply-To, signature...? @@ -1473,7 +1432,6 @@ Answer: @example - (setq gnus-posting-styles '((".*" (name "Frank Schmitt") @@ -1482,7 +1440,6 @@ Answer: (signature-file "~/.signature") ("X-SampleHeader" "foobar") (eval (setq some-variable "Foo bar"))))) - @end example @noindent @@ -1500,7 +1457,7 @@ Answer: @ifnottex @node [5.4], [5.5], [5.3], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.4: +@subsubheading Question 5.4: Can I set things like From, Signature etc group based on the group I post too? @@ -1535,48 +1492,54 @@ Answer: @example - (setq gnus-posting-styles '((".*" ;;default (name "Frank Schmitt") (organization "Hamme net, kren mer och nimmi") - (signature-file "~/.signature") ) + (signature-file "~/.signature")) ((message-news-p) ;;Usenet news? (address "mySpamTrap@@Frank-Schmitt.bla") - ("Reply-To" "hereRealRepliesOnlyPlease@@Frank-Schmitt.bla") ) + ("Reply-To" "hereRealRepliesOnlyPlease@@Frank-Schmitt.bla")) ((message-mail-p) ;;mail? - (address "usedForMails@@Frank-Schmitt.bla") ) + (address "usedForMails@@Frank-Schmitt.bla")) ("^gmane" ;;this is mail, too in fact (address "usedForMails@@Frank-Schmitt.net") - ("Reply-To" nil) ) + ("Reply-To" nil)) ("^gmane.mail.spam.spamassassin.general$" (eval (setq mail-envelope-from "Azzrael@@rz-online.de")) - (address "Azzrael@@rz-online.de")) )) - + (address "Azzrael@@rz-online.de")))) @end example @ifnottex @node [5.5], [5.6], [5.4], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.5: +@subsubheading Question 5.5: Is there a spell-checker? Perhaps even on-the-fly spell-checking? Answer: - You can use ispell.el to spell-check stuff in Emacs. So the - first thing to do is to make sure that you've got either - @uref{http://fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html,ispell} - or @uref{http://aspell.sourceforge.net/,aspell} - installed and in your Path. Then you need - @uref{http://www.kdstevens.com/~stevens/ispell-page.html,ispell.el} - and for on-the-fly spell-checking - @uref{http://www-sop.inria.fr/mimosa/personnel/Manuel.Serrano/flyspell/flyspell.html,flyspell.el}. - Ispell.el is shipped with Gnus Emacs and available through the Emacs package system, - flyspell.el is shipped with Emacs and part of XEmacs text-modes package which is - available through the package system, so there should be no need to install them - manually. +You can use ispell.el to spell-check stuff in Emacs. So the first +thing to do is to make sure that you've got either +@itemize @bullet +@item +@uref{http://fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html,ispell} +or +@item +@uref{http://aspell.sourceforge.net/,aspell} +@end itemize +@noindent +installed and in your Path. + +Then you need +@uref{http://www.kdstevens.com/~stevens/ispell-page.html,ispell.el,ispell.el} +and for on-the-fly spell-checking +@uref{http://www-sop.inria.fr/mimosa/personnel/Manuel.Serrano/flyspell/flyspell.html,flyspell.el,flyspell.el}. +Ispell.el is shipped with Gnus Emacs and available through the Emacs +package system, flyspell.el is shipped with Emacs and part of XEmacs +text-modes package which is available through the package system, so +there should be no need to install them manually. Ispell.el assumes you use ispell, if you choose aspell say @@ -1609,7 +1572,7 @@ Answer: @ifnottex @node [5.6], [5.7], [5.5], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.6: +@subsubheading Question 5.6: Can I set the dictionary based on the group I'm posting to? @@ -1620,7 +1583,6 @@ Answer: @example - (add-hook 'gnus-select-group-hook (lambda () (cond @@ -1629,7 +1591,6 @@ Answer: (ispell-change-dictionary "deutsch8")) (t (ispell-change-dictionary "english"))))) - @end example @@ -1640,7 +1601,7 @@ Answer: @ifnottex @node [5.7], [5.8], [5.6], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.7: +@subsubheading Question 5.7: Is there some kind of address-book, so I needn't remember all those email addresses? @@ -1654,9 +1615,7 @@ Answer: @example - alias al "Al " - @end example @noindent @@ -1674,10 +1633,8 @@ alias al "Al " @example - (require 'bbdb) (bbdb-initialize 'gnus 'message) - @end example @noindent @@ -1686,7 +1643,6 @@ alias al "Al " @example - (require 'bbdb) ;;If you don't live in Northern America, you should disable the ;;syntax check for telephone numbers by saying @@ -1699,7 +1655,6 @@ alias al "Al " (setq bbdb-complete-name-allow-cycling t) ;;No popup-buffers (setq bbdb-use-pop-up nil) - @end example @noindent @@ -1717,7 +1672,7 @@ alias al "Al " @ifnottex @node [5.8], [5.9], [5.7], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.8: +@subsubheading Question 5.8: Sometimes I see little images at the top of article buffer. What's that and how can I send one with my @@ -1739,28 +1694,25 @@ Answer: @example - cat file.xbm | xbm2ikon |compface > file.face cat ./file.face | sed 's/\\/\\\\/g' | sed 's/\"/\\\"/g' > ./file.face.quoted - @end example @noindent - if you can't use compface, there's an online X-face converter at - @uref{http://www.dairiki.org/xface/}. - If you use MS Windows, you could also use the WinFace program from - @uref{http://www.xs4all.nl/~walterln/winface/}. - Now you only have to tell Gnus to include the X-face in your postings by saying - +If you can't use compface, there's an online X-face converter at@* +@uref{http://www.dairiki.org/xface/}. If you use MS Windows, you +could also use the WinFace program from +@uref{http://www.xs4all.nl/~walterln/winface/}. -@example +Now you only have to tell Gnus to include the X-face in your postings +by saying +@example (setq message-default-headers (with-temp-buffer (insert "X-Face: ") (insert-file-contents "~/.xemacs/xface") (buffer-string))) - @end example @noindent @@ -1769,7 +1721,7 @@ cat ./file.face | sed 's/\\/\\\\/g' | sed 's/\"/\\\"/g' > ./file.face.quoted @ifnottex @node [5.9], [5.10], [5.8], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.9: +@subsubheading Question 5.9: Sometimes I accidentally hit r instead of f in newsgroups. Can Gnus warn me, when I'm replying by mail in @@ -1782,9 +1734,7 @@ Answer: @example - (setq gnus-confirm-mail-reply-to-news t) - @end example @noindent @@ -1793,19 +1743,17 @@ Answer: @example - (defadvice gnus-summary-reply (around reply-in-news activate) (interactive) (when (or (not (gnus-news-group-p gnus-newsgroup-name)) (y-or-n-p "Really reply? ")) ad-do-it)) - @end example @ifnottex @node [5.10], [5.11], [5.9], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.10: +@subsubheading Question 5.10: How to tell Gnus not to generate a sender header? @@ -1817,17 +1765,15 @@ Answer: @example - (eval-after-load "message" '(add-to-list 'message-syntax-checks '(sender . disabled))) - @end example @ifnottex @node [5.11], [5.12], [5.10], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.11: +@subsubheading Question 5.11: I want gnus to locally store copies of my send mail and news, how to do it? @@ -1843,19 +1789,17 @@ Answer: @example - (setq gnus-message-archive-group '((if (message-news-p) "nnml:Send-News" "nnml:Send-Mail"))) - @end example @ifnottex @node [5.12], , [5.11], FAQ 5 - Composing messages @end ifnottex -@subheading Question 5.12: +@subsubheading Question 5.12: People tell me my Message-IDs are not correct, why aren't they and how to fix it? @@ -1872,10 +1816,8 @@ Answer: @example - (defun message-make-message-id() (concat "<"(message-unique-id)"@@yourmachine.yourdomain.tld>")) - @end example @@ -1898,10 +1840,8 @@ Answer: @example - (setq message-required-news-headers (remove' Message-ID message-required-news-headers)) - @end example @noindent @@ -1909,10 +1849,8 @@ Answer: @example - (setq message-required-mail-headers (remove' Message-ID message-required-mail-headers)) - @end example @noindent @@ -1924,7 +1862,7 @@ Answer: @ifnottex @node FAQ 6 - Old messages, FAQ 7 - Gnus in a dial-up environment, FAQ 5 - Composing messages, Frequently Asked Questions @end ifnottex -@section Old messages +@subsection Old messages @menu * [6.1]:: How to import my old mail into Gnus? @@ -1938,7 +1876,7 @@ Answer: @ifnottex @node [6.1], [6.2], FAQ 6 - Old messages, FAQ 6 - Old messages @end ifnottex -@subheading Question 6.1: +@subsubheading Question 6.1: How to import my old mail into Gnus? @@ -1969,7 +1907,7 @@ Answer: @ifnottex @node [6.2], [6.3], [6.1], FAQ 6 - Old messages @end ifnottex -@subheading Question 6.2: +@subsubheading Question 6.2: How to archive interesting messages? @@ -1987,7 +1925,6 @@ Answer: @example - (defun my-archive-article (&optional n) "Copies one or more article(s) to a corresponding `nnml:' group, e.g. `gnus.ding' goes to `nnml:1.gnus.ding'. And `nnml:List-gnus.ding' goes @@ -2003,7 +1940,6 @@ more then one article." (replace-in-string gnus-newsgroup-name "^.*:" "") (replace-regexp-in-string "^.*:" "" gnus-newsgroup-name))))) (gnus-summary-copy-article n archive-name))) - @end example @noindent @@ -2017,9 +1953,7 @@ more then one article." @example - (setq gnus-use-cache t) - @end example @noindent @@ -2030,7 +1964,7 @@ more then one article." @ifnottex @node [6.3], [6.4], [6.2], FAQ 6 - Old messages @end ifnottex -@subheading Question 6.3: +@subsubheading Question 6.3: How to search for a specific message? @@ -2077,7 +2011,7 @@ Answer: @ifnottex @node [6.4], [6.5], [6.3], FAQ 6 - Old messages @end ifnottex -@subheading Question 6.4: +@subsubheading Question 6.4: How to get rid of old unwanted mail? @@ -2106,7 +2040,7 @@ Answer: @ifnottex @node [6.5], [6.6], [6.4], FAQ 6 - Old messages @end ifnottex -@subheading Question 6.5: +@subsubheading Question 6.5: I want that all read messages are expired (at least in some groups). How to do it? @@ -2148,7 +2082,7 @@ Answer: @ifnottex @node [6.6], , [6.5], FAQ 6 - Old messages @end ifnottex -@subheading Question 6.6: +@subsubheading Question 6.6: I don't want expiration to delete my mails but to move them to another group. @@ -2160,9 +2094,7 @@ Answer: @example - (setq nnmail-expiry-target "nnml:expired") - @end example @noindent @@ -2175,7 +2107,7 @@ Answer: @ifnottex @node FAQ 7 - Gnus in a dial-up environment, FAQ 8 - Getting help, FAQ 6 - Old messages, Frequently Asked Questions @end ifnottex -@section Gnus in a dial-up environment +@subsection Gnus in a dial-up environment @menu * [7.1]:: I don't have a permanent connection to the net, how can I minimize the time I've got to be connected? @@ -2188,7 +2120,7 @@ Answer: @ifnottex @node [7.1], [7.2], FAQ 7 - Gnus in a dial-up environment, FAQ 7 - Gnus in a dial-up environment @end ifnottex -@subheading Question 7.1: +@subsubheading Question 7.1: I don't have a permanent connection to the net, how can I minimize the time I've got to be connected? @@ -2210,23 +2142,25 @@ Answer: when you're online. - Let's talk about Unix systems first: For the news part, - the easiest solution is a small nntp server like - @uref{http://www.leafnode.org/,Leafnode} or - @uref{http://infa.abo.fi/~patrik/sn/,sn}, - of course you can also install a full featured news - server like - @uref{http://www.isc.org/products/INN/,inn}. - Then you want to fetch your Mail, popular choices - are @uref{http://www.catb.org/~esr/fetchmail/,fetchmail} - and @uref{http://www.qcc.ca/~charlesc/software/getmail-3.0/,getmail}. - You should tell those to write the mail to your disk and - Gnus to read it from there. Last but not least the mail - sending part: This can be done with every MTA like - @uref{http://www.sendmail.org/,sendmail}, - @uref{http://www.qmail.org/,postfix}, - @uref{http://www.exim.org/,exim} or - @uref{http://www.qmail.org/,qmail}. +Let's talk about Unix systems first: For the news part, the easiest +solution is a small nntp server like +@uref{http://www.leafnode.org/,Leafnode} or +@uref{http://infa.abo.fi/~patrik/sn/,sn}, of course you can also +install a full featured news server like +@uref{http://www.isc.org/products/INN/,inn}. + +Then you want to fetch your Mail, popular choices are +@itemize @bullet +@item +@uref{http://www.catb.org/~esr/fetchmail/,fetchmail} and +@item +@uref{http://www.qcc.ca/~charlesc/software/getmail-3.0/,getmail}. +@end itemize +You should tell those to write the mail to your disk and Gnus to read +it from there. Last but not least the mail sending part: This can be +done with every MTA like @uref{http://www.sendmail.org/,sendmail}, +@uref{http://www.qmail.org/,postfix}, @uref{http://www.exim.org/,exim} +or @uref{http://www.qmail.org/,qmail}. On windows boxes I'd vote for @@ -2240,7 +2174,7 @@ Answer: @ifnottex @node [7.2], [7.3], [7.1], FAQ 7 - Gnus in a dial-up environment @end ifnottex -@subheading Question 7.2: +@subsubheading Question 7.2: So what was this thing about the Agent? @@ -2256,9 +2190,7 @@ Answer: @example - (setq gnus-agent t) - @end example @@ -2278,7 +2210,7 @@ Answer: @ifnottex @node [7.3], [7.4], [7.2], FAQ 7 - Gnus in a dial-up environment @end ifnottex -@subheading Question 7.3: +@subsubheading Question 7.3: I want to store article bodies on disk, too. How to do it? @@ -2317,7 +2249,7 @@ Answer: @ifnottex @node [7.4], , [7.3], FAQ 7 - Gnus in a dial-up environment @end ifnottex -@subheading Question 7.4: +@subsubheading Question 7.4: How to tell Gnus not to try to send mails / postings while I'm offline? @@ -2338,7 +2270,7 @@ Answer: @ifnottex @node FAQ 8 - Getting help, FAQ 9 - Tuning Gnus, FAQ 7 - Gnus in a dial-up environment, Frequently Asked Questions @end ifnottex -@section Getting help +@subsection Getting help @menu * [8.1]:: How to find information and help inside Emacs? @@ -2352,7 +2284,7 @@ Answer: @ifnottex @node [8.1], [8.2], FAQ 8 - Getting help, FAQ 8 - Getting help @end ifnottex -@subheading Question 8.1: +@subsubheading Question 8.1: How to find information and help inside Emacs? @@ -2373,7 +2305,7 @@ Answer: @ifnottex @node [8.2], [8.3], [8.1], FAQ 8 - Getting help @end ifnottex -@subheading Question 8.2: +@subsubheading Question 8.2: I can't find anything in the Gnus manual about X (e.g. attachments, PGP, MIME...), is it not documented? @@ -2391,7 +2323,7 @@ Answer: @ifnottex @node [8.3], [8.4], [8.2], FAQ 8 - Getting help @end ifnottex -@subheading Question 8.3: +@subsubheading Question 8.3: Which websites should I know? @@ -2411,7 +2343,7 @@ Answer: @ifnottex @node [8.4], [8.5], [8.3], FAQ 8 - Getting help @end ifnottex -@subheading Question 8.4: +@subsubheading Question 8.4: Which mailing lists and newsgroups are there? @@ -2434,23 +2366,21 @@ Answer: @ifnottex @node [8.5], [8.6], [8.4], FAQ 8 - Getting help @end ifnottex -@subheading Question 8.5: +@subsubheading Question 8.5: Where to report bugs? Answer: - Say @samp{M-x gnus-bug}, this will start - a message to the - @uref{mailto:bugs@@gnus.org,gnus bug mailing list} - including information about your environment which make - it easier to help you. +Say @samp{M-x gnus-bug}, this will start a message to the +@email{bugs@@gnus.org,gnus bug mailing list} including information +about your environment which make it easier to help you. @ifnottex @node [8.6], , [8.5], FAQ 8 - Getting help @end ifnottex -@subheading Question 8.6: +@subsubheading Question 8.6: I need real-time help, where to find it? @@ -2466,7 +2396,7 @@ Answer: @ifnottex @node FAQ 9 - Tuning Gnus, FAQ - Glossary, FAQ 8 - Getting help, Frequently Asked Questions @end ifnottex -@section Tuning Gnus +@subsection Tuning Gnus @menu * [9.1]:: Starting Gnus is really slow, how to speed it up? @@ -2477,7 +2407,7 @@ Answer: @ifnottex @node [9.1], [9.2], FAQ 9 - Tuning Gnus, FAQ 9 - Tuning Gnus @end ifnottex -@subheading Question 9.1: +@subsubheading Question 9.1: Starting Gnus is really slow, how to speed it up? @@ -2497,10 +2427,8 @@ Answer: @example - (require 'message) (add-to-list 'message-syntax-checks '(sender . disabled)) - @end example @noindent @@ -2509,10 +2437,8 @@ Answer: @example - (eval-after-load "message" '(add-to-list 'message-syntax-checks '(sender . disabled))) - @end example @noindent @@ -2521,7 +2447,7 @@ Answer: @ifnottex @node [9.2], [9.3], [9.1], FAQ 9 - Tuning Gnus @end ifnottex -@subheading Question 9.2: +@subsubheading Question 9.2: How to speed up the process of entering a group? @@ -2535,9 +2461,7 @@ Answer: @example - (gnus-compile) - @end example @noindent @@ -2549,9 +2473,7 @@ Answer: @example - (setq gc-cons-threshold 3500000) - @end example @noindent @@ -2561,9 +2483,7 @@ Answer: @example - (setq gnus-use-correct-string-widths nil) - @end example @@ -2578,7 +2498,7 @@ Answer: @ifnottex @node [9.3], , [9.2], FAQ 9 - Tuning Gnus @end ifnottex -@subheading Question 9.3: +@subsubheading Question 9.3: Sending mail becomes slower and slower, what's up? @@ -2595,7 +2515,7 @@ Answer: @ifnottex @node FAQ - Glossary, , FAQ 9 - Tuning Gnus, Frequently Asked Questions @end ifnottex -@section Glossary +@subsection Glossary @table @dfn diff --git a/texi/gnus.texi b/texi/gnus.texi index 09106c8..540e185 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1926,7 +1926,8 @@ background is dark: (defface my-group-face-1 '((t (:foreground "Red" :bold t))) "First group face") (defface my-group-face-2 - '((t (:foreground "DarkSeaGreen4" :bold t))) "Second group face") + '((t (:foreground "DarkSeaGreen4" :bold t))) + "Second group face") (defface my-group-face-3 '((t (:foreground "Green4" :bold t))) "Third group face") (defface my-group-face-4 @@ -2954,7 +2955,7 @@ if address \"sender\" \"sieve-admin@@extundo.com\" @{ @} @end example -The Sieve language is described in RFC 3028. @xref{Top, , Top, sieve, +The Sieve language is described in RFC 3028. @xref{Top, , Top, sieve, Emacs Sieve}. @item (@var{variable} @var{form}) @@ -2980,11 +2981,13 @@ parameters, then you may need the following statement elsewhere in your @vindex gnus-list-identifiers A use for this feature is to remove a mailing list identifier tag in the subject fields of articles. E.g. if the news group -@samp{nntp+news.gnus.org:gmane.text.docbook.apps} has the tag -@samp{DOC-BOOK-APPS:} in the subject of all articles, this tag can be -removed from the article subjects in the summary buffer for the group by -putting @code{(gnus-list-identifiers "DOCBOOK-APPS:")} into the group -parameters for the group. +@example +nntp+news.gnus.org:gmane.text.docbook.apps +@end example +has the tag @samp{DOC-BOOK-APPS:} in the subject of all articles, this +tag can be removed from the article subjects in the summary buffer for +the group by putting @code{(gnus-list-identifiers "DOCBOOK-APPS:")} +into the group parameters for the group. This can also be used as a group-specific hook function, if you'd like. If you want to hear a beep when you enter a group, you could put @@ -3249,7 +3252,7 @@ Sort the group buffer by group rank @item G S m @kindex G S m (Group) @findex gnus-group-sort-groups-by-method -Sort the group buffer alphabetically by back end name +Sort the group buffer alphabetically by back end name@* (@code{gnus-group-sort-groups-by-method}). @item G S n @@ -3302,7 +3305,7 @@ Sort the groups by group rank @item G P m @kindex G P m (Group) @findex gnus-group-sort-selected-groups-by-method -Sort the groups alphabetically by back end name +Sort the groups alphabetically by back end name@* (@code{gnus-group-sort-selected-groups-by-method}). @item G P n @@ -3870,6 +3873,7 @@ sorting. So, let's have a look at an example group buffer: @example +@group Gnus Emacs -- I wuw it! 3: comp.emacs @@ -3880,6 +3884,7 @@ Gnus Misc 8: comp.binaries.fractals 13: comp.sources.unix +@end group @end example So, here we have one top-level topic (@samp{Gnus}), two topics under @@ -6025,9 +6030,11 @@ altering the summary mode keymap. For instance, if you would like the article, you could say something like: @lisp +@group (add-hook 'gnus-summary-mode-hook 'my-alter-summary-map) (defun my-alter-summary-map () (local-set-key "!" 'gnus-summary-put-mark-as-ticked-next)) +@end group @end lisp or @@ -6299,7 +6306,7 @@ Include all the articles in the current thread in the limit. @item / c @kindex / c (Summary) @findex gnus-summary-limit-exclude-childless-dormant -Exclude all dormant articles that have no children from the limit +Exclude all dormant articles that have no children from the limit@* (@code{gnus-summary-limit-exclude-childless-dormant}). @item / C @@ -6653,7 +6660,7 @@ generated. This can also be a predicate specifier (@pxref{Predicate Specifiers}). Available predicates are @code{gnus-article-unread-p} and -@code{gnus-article-unseen-p}). +@code{gnus-article-unseen-p}. Here's an example: @@ -6793,7 +6800,7 @@ Toggle threading (@code{gnus-summary-toggle-threads}). @item T s @kindex T s (Summary) @findex gnus-summary-show-thread -Expose the (sub-)thread hidden under the current article, if any +Expose the (sub-)thread hidden under the current article, if any@* (@code{gnus-summary-show-thread}). @item T h @@ -8214,7 +8221,8 @@ banner something like @samp{Do You Yoo-hoo!?} in all articles he sends, you can use the following element to remove them: @lisp -("@@yoo-hoo\\.co\\.jp\\'" . "\n_+\nDo You Yoo-hoo!\\?\n.*\n.*\n") +("@@yoo-hoo\\.co\\.jp\\'" . + "\n_+\nDo You Yoo-hoo!\\?\n.*\n.*\n") @end lisp @end table @@ -8416,7 +8424,7 @@ maximum length of an unwrapped citation line. @item W Y a @kindex W Y a (Summary) @findex gnus-article-outlook-repair-attribution -Repair a broken attribution line. +Repair a broken attribution line.@* (@code{gnus-article-outlook-repair-attribution}). @item W Y c @@ -8714,9 +8722,11 @@ used to say what headers to apply the buttonize coding to: @end lisp @var{header} is a regular expression. +@end table @subsubsection Related variables and functions +@table @code @item gnus-button-@var{*}-level @xref{Article Button Levels}. @@ -9753,9 +9763,13 @@ Variables related to the display are: @item gnus-tree-brackets @vindex gnus-tree-brackets This is used for differentiating between ``real'' articles and -``sparse'' articles. The format is @code{((@var{real-open} . @var{real-close}) -(@var{sparse-open} . @var{sparse-close}) (@var{dummy-open} . @var{dummy-close}))}, and the -default is @code{((?[ . ?]) (?( . ?)) (?@{ . ?@}) (?< . ?>))}. +``sparse'' articles. The format is +@example +((@var{real-open} . @var{real-close}) + (@var{sparse-open} . @var{sparse-close}) + (@var{dummy-open} . @var{dummy-close})) +@end example +and the default is @code{((?[ . ?]) (?( . ?)) (?@{ . ?@}) (?< . ?>))}. @item gnus-tree-parent-child-edges @vindex gnus-tree-parent-child-edges @@ -9808,6 +9822,7 @@ Here's an example from a horizontal tree buffer: Here's the same thread displayed in a vertical tree buffer: @example +@group @{***@} |--------------------------\-----\-----\ (***) [Bjo] [Gun] [Gun] @@ -9817,6 +9832,7 @@ Here's the same thread displayed in a vertical tree buffer: [Gun] [Eri] [Eri] [odd] | [Paa] +@end group @end example If you're using horizontal trees, it might be nice to display the trees @@ -10073,9 +10089,9 @@ other buffers. For example: @lisp (setq gnus-newsgroup-variables - '(message-use-followup-to - (gnus-visible-headers . - "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^To:"))) + '(message-use-followup-to + (gnus-visible-headers . + "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^To:"))) @end lisp @end table @@ -10561,7 +10577,7 @@ Privacy Guard when you click on the @acronym{MIME} button @example application/pgp-keys; gpg --import --interactive --verbose; needsterminal @end example - +@noindent This happens to also be the default action defined in @code{mailcap-mime-data}. @@ -12825,7 +12841,7 @@ Where @code{nnspool} looks for the articles. This is normally @item nnspool-nov-directory @vindex nnspool-nov-directory -Where @code{nnspool} will look for @acronym{NOV} files. This is normally +Where @code{nnspool} will look for @acronym{NOV} files. This is normally@* @file{/usr/spool/news/over.view/}. @item nnspool-lib-dir @@ -13594,7 +13610,7 @@ variables. @table @code @item mail-source-crash-box @vindex mail-source-crash-box -File where mail will be stored while processing it. The default is +File where mail will be stored while processing it. The default is@* @file{~/.emacs-mail-crash-box}. @item mail-source-delete-incoming @@ -14468,13 +14484,13 @@ methods: @lisp (setq nnmail-split-fancy '(| ;; @r{Messages duplicates go to a separate group.} - ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate") - ;; @r{Message from daemons, postmaster, and the like to another.} - (any mail "mail.misc") - ;; @r{Other rules.} - [ ... ] )) + ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate") + ;; @r{Message from daemons, postmaster, and the like to another.} + (any mail "mail.misc") + ;; @r{Other rules.} + [...] )) @end lisp - +@noindent Or something like: @lisp (setq nnmail-split-methods @@ -14890,11 +14906,13 @@ delivery time, but editing an article makes it younger. Moving an article (other than via expiry) may also make an article younger. @item expire-group -If this is set to a string (a full Gnus group name, like -@code{"backend+server.address.string:group.name"}), and if it is not -the name of the same group that the parameter belongs to, then -articles will be moved to the specified group during expiry before -being deleted. @emph{If this is set to an nnmaildir group, the +If this is set to a string such as a full Gnus group name, like +@example +"backend+server.address.string:group.name" +@end example +and if it is not the name of the same group that the parameter belongs +to, then articles will be moved to the specified group during expiry +before being deleted. @emph{If this is set to an nnmaildir group, the article will be just as old in the destination group as it was in the source group.} So be careful with @code{expire-age} in the destination group. If this is set to the name of the same group that @@ -15519,7 +15537,7 @@ Where @code{nnslashdot} will store its files. The default is @item nnslashdot-active-url @vindex nnslashdot-active-url The @sc{url} format string that will be used to fetch the information on -news articles and comments. The default is +news articles and comments. The default is@* @samp{http://slashdot.org/search.pl?section=&min=%d}. @item nnslashdot-comments-url @@ -15570,7 +15588,7 @@ The following @code{nnultimate} variables can be altered: @table @code @item nnultimate-directory @vindex nnultimate-directory -The directory where @code{nnultimate} stores its files. The default is +The directory where @code{nnultimate} stores its files. The default is@* @file{~/News/ultimate/}. @end table @@ -15590,7 +15608,7 @@ groups updated. The easiest way to get started with @code{nnwarchive} is to say something like the following in the group buffer: @kbd{M-x gnus-group-make-warchive-group RET @var{an_egroup} RET egroups RET -www.egroups.com RET @var{your@@email.address RET}}. (Substitute the +www.egroups.com RET @var{your@@email.address} RET}. (Substitute the @var{an_egroup} with the mailing list you subscribed, the @var{your@@email.address} with your email address.), or to browse the back end by @kbd{B nnwarchive RET mail-archive RET}. @@ -15600,7 +15618,7 @@ The following @code{nnwarchive} variables can be altered: @table @code @item nnwarchive-directory @vindex nnwarchive-directory -The directory where @code{nnwarchive} stores its files. The default is +The directory where @code{nnwarchive} stores its files. The default is@* @file{~/News/warchive/}. @item nnwarchive-login @@ -16115,11 +16133,11 @@ the syntax of this variable have been extended along the lines of: @lisp (setq nnimap-split-rule - '(("my1server" (".*" (("ding" "ding@@gnus.org") - ("junk" "From:.*Simon"))) + '(("my1server" (".*" (("ding" "ding@@gnus.org") + ("junk" "From:.*Simon")))) ("my2server" ("INBOX" nnimap-split-fancy)) - ("my[34]server" (".*" (("private" "To:.*Simon") - ("junk" my-junk-func))))) + ("my[34]server" (".*" (("private" "To:.*Simon") + ("junk" my-junk-func)))))) @end lisp The virtual server name is in fact a regexp, so that the same rules @@ -16270,7 +16288,7 @@ delete them. The @acronym{IMAP} protocol has a concept called namespaces, described by the following text in the RFC: -@example +@display 5.1.2. Mailbox Namespace Naming Convention By convention, the first hierarchical element of any mailbox name @@ -16284,7 +16302,7 @@ by the following text in the RFC: comp.mail.misc newsgroup would have an mailbox name of "#news.comp.mail.misc", and the name "comp.mail.misc" could refer to a different object (e.g. a user's private mailbox). -@end example +@end display While there is nothing in this text that warrants concern for the @acronym{IMAP} implementation in Gnus, some servers use namespace @@ -17000,6 +17018,9 @@ Creates a @code{To} header that looks like @item nngateway-mail2news-header-transformation Creates a @code{To} header that looks like @code{nngateway-address}. +@end table + +@end table Here's an example: @@ -17011,11 +17032,6 @@ Here's an example: nngateway-mail2news-header-transformation))) @end lisp -@end table - - -@end table - So, to use this, simply say something like: @lisp @@ -17284,7 +17300,6 @@ all @code{nntp} and @code{nnimap} groups in @code{gnus-select-method} and @code{gnus-secondary-select-methods} are agentized. @item - Decide on download policy. It's fairly simple once you decide whether you are going to use agent categories, topic parameters, and/or group parameters to implement your policy. If you're new to gnus, it @@ -20687,6 +20702,7 @@ To be slightly more formal, here's a definition of what a valid split may look like: @example +@group split = frame | horizontal | vertical | buffer | form frame = "(frame " size *split ")" horizontal = "(horizontal " size *split ")" @@ -20694,6 +20710,7 @@ vertical = "(vertical " size *split ")" buffer = "(" buf-name " " size *[ "point" ] *[ "frame-focus"] ")" size = number | frame-params buf-name = group | article | summary ... +@end group @end example The limitations are that the @code{frame} split can only appear as the @@ -21226,17 +21243,23 @@ by default. @item gnus-nocem-groups @vindex gnus-nocem-groups Gnus will look for NoCeM messages in the groups in this list. The -default is @code{("news.lists.filters" "news.admin.net-abuse.bulletins" -"alt.nocem.misc" "news.admin.net-abuse.announce")}. +default is +@lisp +("news.lists.filters" "news.admin.net-abuse.bulletins" + "alt.nocem.misc" "news.admin.net-abuse.announce") +@end lisp @item gnus-nocem-issuers @vindex gnus-nocem-issuers There are many people issuing NoCeM messages. This list says what -people you want to listen to. The default is @code{("Automoose-1" -"clewis@@ferret.ocunix.on.ca" "cosmo.roadkill" "SpamHippo" -"hweede@@snafu.de")}; fine, upstanding citizens all of them. +people you want to listen to. The default is +@lisp +("Automoose-1" "clewis@@ferret.ocunix.on.ca" + "cosmo.roadkill" "SpamHippo" "hweede@@snafu.de") +@end lisp +fine, upstanding citizens all of them. -Known despammers that you can put in this list are listed at +Known despammers that you can put in this list are listed at@* @uref{http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html}. You do not have to heed NoCeM messages from all these people---just the @@ -21293,7 +21316,7 @@ This might be dangerous, though. @item gnus-nocem-directory @vindex gnus-nocem-directory -This is where Gnus will store its NoCeM cache files. The default is +This is where Gnus will store its NoCeM cache files. The default is@* @file{~/News/NoCeM/}. @item gnus-nocem-expiry-wait @@ -22036,9 +22059,9 @@ like: (add-hook 'message-send-hook 'mail-add-payment) @end lisp -The @code{hashcash.el} library can be found at -@uref{http://users.actrix.gen.nz/mycroft/hashcash.el}, or in the Gnus -development contrib directory. +The @code{hashcash.el} library can be found in the Gnus development +contrib directory. or at +@uref{http://users.actrix.gen.nz/mycroft/hashcash.el}. You will need to set up some additional variables as well: @@ -22947,7 +22970,7 @@ following in your @file{~/.gnus.el} file: Typical test will involve calls to the following functions: -@example +@smallexample Reset: (setq spam-stat (make-hash-table :test 'equal)) Learn spam: (spam-stat-process-spam-directory "~/Mail/mail/spam") Learn non-spam: (spam-stat-process-non-spam-directory "~/Mail/mail/misc") @@ -22962,18 +22985,18 @@ File size: (nth 7 (file-attributes spam-stat-file)) Number of words: (hash-table-count spam-stat) Test spam: (spam-stat-test-directory "~/Mail/mail/spam") Test non-spam: (spam-stat-test-directory "~/Mail/mail/misc") -@end example +@end smallexample Here is how you would create your dictionary: -@example +@smallexample Reset: (setq spam-stat (make-hash-table :test 'equal)) Learn spam: (spam-stat-process-spam-directory "~/Mail/mail/spam") Learn non-spam: (spam-stat-process-non-spam-directory "~/Mail/mail/misc") Repeat for any other non-spam group you need... Reduce table size: (spam-stat-reduce-size) Save table: (spam-stat-save) -@end example +@end smallexample @node Various Various @section Various Various @@ -25060,28 +25083,29 @@ Sometimes, a problem do not directly generate a elisp error but manifests itself by causing Gnus to be very slow. In these cases, you can use @kbd{M-x toggle-debug-on-quit} and press @kbd{C-g} when things are slow, and then try to analyze the backtrace (repeating the procedure -helps isolating the real problem areas). A fancier approach is to use -the elisp profiler, ELP. The profiler is (or should be) fully -documented elsewhere, but to get you started there are a few steps -that need to be followed. First, instrument the part of Gnus you are -interested in for profiling, e.g. @kbd{M-x elp-instrument-package RET -gnus} or @kbd{M-x elp-instrument-package RET message}. Then perform -the operation that is slow and press @kbd{M-x elp-results}. You will -then see which operations that takes time, and can debug them further. -If the entire operation takes much longer than the time spent in the -slowest function in the profiler output, you probably profiled the -wrong part of Gnus. To reset profiling statistics, use @kbd{M-x -elp-reset-all}. @kbd{M-x elp-restore-all} is supposed to remove -profiling, but given the complexities and dynamic code generation in -Gnus, it might not always work perfectly. - -If you just need help, you are better off asking on -@samp{gnu.emacs.gnus}. I'm not very helpful. +helps isolating the real problem areas). + +A fancier approach is to use the elisp profiler, ELP. The profiler is +(or should be) fully documented elsewhere, but to get you started +there are a few steps that need to be followed. First, instrument the +part of Gnus you are interested in for profiling, e.g. @kbd{M-x +elp-instrument-package RET gnus} or @kbd{M-x elp-instrument-package +RET message}. Then perform the operation that is slow and press +@kbd{M-x elp-results}. You will then see which operations that takes +time, and can debug them further. If the entire operation takes much +longer than the time spent in the slowest function in the profiler +output, you probably profiled the wrong part of Gnus. To reset +profiling statistics, use @kbd{M-x elp-reset-all}. @kbd{M-x +elp-restore-all} is supposed to remove profiling, but given the +complexities and dynamic code generation in Gnus, it might not always +work perfectly. @cindex gnu.emacs.gnus @cindex ding mailing list -You can also ask on the ding mailing list---@email{ding@@gnus.org}. -Write to @email{ding-request@@gnus.org} to subscribe. +If you just need help, you are better off asking on +@samp{gnu.emacs.gnus}. I'm not very helpful. You can also ask on +@email{ding@@gnus.org, the ding mailing list}. Write to +@email{ding-request@@gnus.org} to subscribe. @page diff --git a/texi/texi2latex.el b/texi/texi2latex.el index cb7b5b8..86fb2fc 100644 --- a/texi/texi2latex.el +++ b/texi/texi2latex.el @@ -100,7 +100,7 @@ "summarycontents" "bye" "top" "iftex" "cartouche" "iflatex" "finalout" "vskip" - "dircategory")) + "dircategory" "group")) (latexi-strip-line)) ((member command '("menu" "tex" "ifinfo" "ignore" "ifnottex" "direntry")) @@ -117,6 +117,10 @@ (if as-a-chapter (latexi-switch-line "subsubsection*" arg) (latexi-switch-line "subsection*" arg))) + ((member command '("subsubheading")) + (if as-a-chapter + (latexi-switch-line "subsubsubsection*" arg) + (latexi-switch-line "subsubsection*" arg))) ((member command '("chapter")) (if (string-match "Index" arg) (latexi-strip-line) @@ -151,7 +155,7 @@ ) ((member command '("titlepage")) (latexi-begin-command command)) - ((member command '("lisp" "example")) + ((member command '("lisp" "example" "smallexample" "display")) (latexi-strip-line) (insert (format "\\begin{verbatim}\n")) (setq verbatim (point))) @@ -167,7 +171,7 @@ ((equal arg "quotation") (latexi-strip-line) (insert (format "\\end{verse}\n"))) - ((member arg '("lisp" "example")) + ((member arg '("lisp" "example" "smallexample" "display")) (latexi-strip-line) (save-excursion (save-restriction @@ -188,7 +192,7 @@ (setq item-string (pop item-stack)) (latexi-strip-line) (insert (format "\\end{%s}\n" arg))) - ((member arg '("iflatex" "iftex" "cartouche")) + ((member arg '("iflatex" "iftex" "cartouche" "group")) (latexi-strip-line)) ((member arg '("deffn" "defvar" "defun")) (latexi-strip-line))