+Fri Dec 6 12:47:24 1996 Wes Hardaker <Wesley.Hardaker@sphys.unil.ch>
+
+ * gnus-picon.el (gnus-picons-insert-face-if-exists): Don't reverse
+ domains.
+
+Fri Dec 6 11:33:44 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * nnfolder.el (nnfolder-request-article): Use it.
+ (nnfolder-retrieve-headers): Wouldn't find the right header.
+
+ * nnmail.el (nnmail-search-unix-mail-delim-backward): New function.
+
+Thu Dec 5 21:51:03 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.el (gnus-server-add-address): Don't add "*-address" to all
+ servers.
+
+Thu Dec 5 21:01:22 1996 Lars Magne Ingebrigtsen <menja.larsi@ifi.uio.no>
+
+ * gnus.el: Red Gnus v0.73 is released.
+
Thu Dec 5 19:29:50 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus-sum.el (gnus-get-newsgroup-headers-xover): Message the line
(setq bar nil)))
(setq first t))
(when (and addrs domainp)
- (let ((it (mapconcat 'downcase addrs ".")))
+ (let ((it (mapconcat 'downcase (nreverse addrs) ".")))
(make-annotation
(if first (concat (if (not rightp) ".") it (if rightp ".")) it)
(point) 'text nil nil nil rightp)))
"Score and kill file handling."
:group 'gnus )
-(defconst gnus-version-number "0.73"
+(defconst gnus-version-number "0.74"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
:type 'string)
(defcustom gnus-valid-select-methods
- '(("nntp" post address prompt-address)
+ '(("nntp" post address prompt-address physical-address)
("nnspool" post address)
("nnvirtual" post-mail virtual prompt-address)
("nnmbox" mail respool address)
("nnml" mail respool address)
("nnmh" mail respool address)
- ("nndir" post-mail prompt-address)
- ("nneething" none address prompt-address)
+ ("nndir" post-mail prompt-address physical-address)
+ ("nneething" none address prompt-address physical-address)
("nndoc" none address prompt-address)
("nnbabyl" mail address respool)
("nnkiboze" post virtual)
("nnsoup" post-mail address)
("nndraft" post-mail)
("nnfolder" mail respool address)
- ("nngateway" none address prompt-address)
+ ("nngateway" none address prompt-address physical-address)
("nnweb" none))
"An alist of valid select methods.
The first element of each list lists should be a string with the name
gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view
gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view
gnus-uu-decode-binhex-view)
+ ("gnus-uu" gnus-uu-delete-work-dir)
("gnus-msg" (gnus-summary-send-map keymap)
gnus-article-mail gnus-copy-article-buffer gnus-extended-version)
("gnus-msg" :interactive t
(defsubst gnus-server-add-address (method)
(let ((method-name (symbol-name (car method))))
(if (and (memq 'address (assoc method-name gnus-valid-select-methods))
- (not (assq (intern (concat method-name "-address")) method)))
+ (not (assq (intern (concat method-name "-address")) method))
+ (memq 'physical-address (assq (car method)
+ gnus-valid-select-methods)))
(append method (list (list (intern (concat method-name "-address"))
(nth 1 method))))
method)))
;; backwards will be faster. Especially if we're at the
;; beginning of the buffer :-). -SLB
(search-backward art-string nil t))
- (nnmail-search-unix-mail-delim)
+ (nnmail-search-unix-mail-delim-backward)
(setq start (point))
(search-forward "\n\n" nil t)
(setq stop (1- (point)))
(goto-char (point-min))
(when (search-forward (nnfolder-article-string article) nil t)
(let (start stop)
- (nnmail-search-unix-mail-delim)
+ (nnmail-search-unix-mail-delim-backward)
(setq start (point))
(forward-line 1)
(unless (and (nnmail-search-unix-mail-delim)
(beginning-of-line)
(eq found 'yes)))
+(defun nnmail-search-unix-mail-delim-backward ()
+ "Put point at the beginning of the current Unix mbox message."
+ ;; Algorithm used to find the the next article in the
+ ;; brain-dead Unix mbox format:
+ ;;
+ ;; 1) Search for "^From ".
+ ;; 2) If we find it, then see whether the previous
+ ;; line is blank and the next line looks like a header.
+ ;; Then it's possible that this is a mail delim, and we use it.
+ (let ((case-fold-search nil)
+ found)
+ (while (not found)
+ (if (not (re-search-backward "^From " nil t))
+ (setq found 'no)
+ (save-excursion
+ (beginning-of-line)
+ (when (and (or (bobp)
+ (save-excursion
+ (forward-line -1)
+ (= (following-char) ?\n)))
+ (save-excursion
+ (forward-line 1)
+ (while (looking-at ">From ")
+ (forward-line 1))
+ (looking-at "[^ \t:]+[ \t]*:")))
+ (setq found 'yes)))))
+ (beginning-of-line)
+ (eq found 'yes)))
+
(defun nnmail-process-unix-mail-format (func artnum-func)
(let ((case-fold-search t)
start message-id content-length end skip head-end)
+Sat Dec 7 21:10:23 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.texi (Example Methods): Addition.
+
+Fri Dec 6 12:38:14 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.texi (Group Parameters): Update.
+
1996-11-30 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus.texi (Terminology): Addition.
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Red Gnus 0.73 Manual
+@settitle Red Gnus 0.74 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Red Gnus 0.73 Manual
+@title Red Gnus 0.74 Manual
@author by Lars Magne Ingebrigtsen
@page
spool or your mbox file. All at the same time, if you want to push your
luck.
-This manual corresponds to Red Gnus 0.73
+This manual corresponds to Red Gnus 0.74
@end ifinfo
@item auto-expire
@cindex auto-expire
-If this symbol is present in the group parameter list, all articles that
-are read will be marked as expirable. For an alternative approach,
-@pxref{Expiring Mail}.
+If the group parameter has an element that looks like @code{(auto-expire
+. t)}, , all articles that are read will be marked as expirable. For an
+alternative approach, @pxref{Expiring Mail}.
@item total-expire
@cindex total-expire
-If this symbol is present, all read articles will be put through the
+If the group parameter has an element that looks like
+@code{(total-expire . t)}, all read articles will be put through the
expiry process, even if they are not marked as expirable. Use with
-caution.
+caution.
@item expiry-wait
@cindex expiry-wait
(nnmh-get-new-mail nil))
@end lisp
+If you are behind a firewall and only have access to the @sc{nntp}
+server from the firewall machine, you can instruct Gnus to @code{rlogin}
+on the firewall machine and telnet from there to the @sc{nntp} server.
+Doing this can be rather fiddly, but your virtual server definition
+should probably look something like this:
+
+@lisp
+(nntp "firewall"
+ (nntp-address "the.firewall.machine")
+ (nntp-open-server-function nntp-open-rlogin)
+ (nntp-end-of-line "\n")
+ (nntp-rlogin-parameters
+ ("telnet" "the.real.nntp.host" "nntp")))
+@end lisp
+
+
@node Creating a Virtual Server
@subsection Creating a Virtual Server
projects / gnus / commitdiff