Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 22c50591875ddfc73d16cff4ba1211964923578b 1 parent c223e15
@larsmagne larsmagne authored
View
57 lisp/ChangeLog
@@ -1,3 +1,58 @@
+Fri Jun 9 00:07:16 1995 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * nneething.el (nneething-retrieve-headers): Check for empty
+ files.
+
+ * gnus-msg.el (gnus-inews-insert-headers): Did not delete the
+ required headers.
+ (gnus-inews-organization): Be a bit more clever about missing
+ files.
+
+ * gnus-score.el (gnus-score-body): Didn't work at all.
+
+ * gnus-msg.el (gnus-summary-supersede-article): Did not select
+ article before superseding.
+ (gnus-summary-supersede-article): Delete certain headers before
+ superseding.
+ (gnus-delete-supersedes-headers): New variable.
+
+Thu Jun 8 20:15:24 1995 Lars Ingebrigtsen <lars@eyesore.no>
+
+ * nnmh.el (nnmh-request-list): Would add a "." to the group name
+ if nnmh-directory didn't end with /.
+
+ * nnmail.el (nnmail-resplit-incoming): New variable.
+
+ * nnml.el (nnml-get-new-mail): Wrong group name.
+
+ * gnus.el (gnus-simplify-subject-fuzzy): Inline
+ simplify-buffer-fuzzy.
+ (gnus-simplify-buffer-fuzzy): New Re: match.
+
+ * gnus-uu.el (gnus-uu-initialize): Make a more unique temp name.
+ (gnus-uu-decode-unshar-and-save): Start working.
+
+ * gnus.el (gnus-score-find-single): Find both SCORE and ADAPT
+ file.
+ (gnus-score-find-hierarchical): Ditto.
+
+Thu Jun 8 15:38:58 1995 Lars Magne Ingebrigtsen <larsi@gymir.ifi.uio.no>
+
+ * gnus.el (gnus-newsrc-to-gnus-format): Don't enter native groups
+ from the .eld files of they do not exist in the .newsrc file.
+
+ * gnus.el: Doc string typo corrections galore courtesy of Frank D.
+ Cringle.
+
+ * gnus-ems.el: Bind buffer-substring-no-properties if not bound.
+
+ * gnus.el (gnus-select-newsgroup): Did the wrong thing to remove
+ (gnus-matches-options-n): Reversed match, sort of.
+ (gnus-extract-address-components): Didn't treat chopped-off lines
+ well.
+ (gnus-read-all-descriptions-files): Returned nil.
+ (gnus-gmt-to-local): Wouldn't strip props before calling timzone.
+
Wed Jun 7 15:04:20 1995 Lars Magne Ingebrigtsen <larsi@gymir.ifi.uio.no>
* gnus.el (gnus-select-newsgroup): Don't add an extra 1 if there
@@ -14,6 +69,8 @@ Wed Jun 7 15:04:20 1995 Lars Magne Ingebrigtsen <larsi@gymir.ifi.uio.no>
(gnus-select-newsgroup): Didn't remove the first fetched article
when not using nov.
+ * gnus.el: 0.83 is released.
+
Wed Jun 7 12:59:46 1995 Lars Ingebrigtsen <lars@eyesore.no>
* gnus.el (gnus-configure-windows): Also make the selected buffer
View
4 lisp/custom.el
@@ -417,7 +417,7 @@ START and END are markers to the start and end of the field."
(defun custom-field-accept (field value &optional original)
"Accept FIELD VALUE.
-If optional ORIGINAL is non-nil, concider VALUE for the original value."
+If optional ORIGINAL is non-nil, consider VALUE for the original value."
(funcall (custom-property (custom-field-custom field) 'accept)
field value original))
@@ -944,7 +944,7 @@ If the optional argument GET is non-nil, use that to get external data."
;; The Customization major mode and interactive commands.
(defvar custom-mode-map nil
- "Keymap for Custum Mode.")
+ "Keymap for Custom Mode.")
(if custom-mode-map
nil
(setq custom-mode-map (make-sparse-keymap))
View
4 lisp/gnus-cite.el
@@ -129,11 +129,11 @@ The faces are taken from `gnus-cite-face-list'.
Attribution lines are highlighted with the sameface as the
corresponding citation merged with `gnus-cite-attribution-face'.
-Text is concidered cited if at least `gnus-cite-minimum-match-count'
+Text is considered cited if at least `gnus-cite-minimum-match-count'
lines matches `gnus-cite-prefix-regexp' with the same prefix.
Lines matching `gnus-cite-attribution-postfix' and perhaps
-`gnus-cite-attribution-prefix' are concidered attribution lines."
+`gnus-cite-attribution-prefix' are considered attribution lines."
(interactive)
;; Create dark or light faces if necessary.
(cond ((eq gnus-cite-face-list 'light)
View
5 lisp/gnus-ems.el
@@ -98,7 +98,10 @@
((and (not (string-match "28.9" emacs-version))
(not (string-match "29" emacs-version)))
- (setq gnus-hidden-properties '(invisible t)))
+ (setq gnus-hidden-properties '(invisible t))
+ (or (fboundp 'buffer-substring-no-properties)
+ (defun buffer-substring-no-properties (beg end)
+ (format "%s" (buffer-substring beg end)))))
((boundp 'MULE)
(provide 'gnusutil))
View
2  lisp/gnus-kill.el
@@ -338,7 +338,7 @@ Returns the number of articles marked as read."
;; from the `gnus-newsgroup-headers' list that the score functions
;; will see. This is probably pretty wasteful when it comes to
;; conses, but is, I think, faster than having to assq in every
- ;; single score funtion.
+ ;; single score function.
(let ((files kill-files))
(while files
(if (file-exists-p (car files))
View
23 lisp/gnus-msg.el
@@ -159,6 +159,11 @@ you want Gnus not to insert some header, remove it from this list.")
If this variable is t, Gnus will check everything it can. If it is a
list, then those elements in that list will be checked.")
+(defvar gnus-delete-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:"
+ "*Header lines matching this regexp will be deleted before posting.
+It's best to delete old Path and Date headers before psoting to avoid
+any confusion.")
+
(defvar gnus-auto-mail-to-author nil
"*If non-nil, mail the authors of articles a copy of your follow-ups.
If this variable is `ask', the user will be prompted for whether to
@@ -332,13 +337,13 @@ This is done simply by taking the old article and adding a Supersedes
header line with the old Message-ID."
(interactive)
(gnus-set-global-variables)
- (if (not
+ (gnus-summary-select-article t)
+ (if (or
(string-equal
(downcase (mail-strip-quoted-names
(header-from gnus-current-headers)))
(downcase (mail-strip-quoted-names (gnus-inews-user-name)))))
(error "This article is not yours."))
- (gnus-summary-select-article t)
(save-excursion
(set-buffer gnus-article-buffer)
(let ((buffer-read-only nil))
@@ -357,7 +362,14 @@ header line with the old Message-ID."
(replace-match "Supersedes: " t t))
(search-forward "\n\n")
(forward-line -1)
- (insert mail-header-separator))))
+ (insert mail-header-separator)
+
+ (forward-line -1)
+ (narrow-to-region (point-min) (point))
+ (goto-char (point-min))
+ (and gnus-delete-supersedes-headers
+ (delete-matching-lines gnus-delete-supersedes-headers))
+ (widen))))
;;;###autoload
@@ -969,7 +981,7 @@ Headers in `gnus-required-headers' will be generated."
(goto-char (point-min))
(and (re-search-forward
(concat "^" (symbol-name (car headers)) ": *") nil t)
- (get-text-property (match-end 0) 'gnus-delete)
+ (get-text-property (1+ (match-end 0)) 'gnus-deletable)
(gnus-delete-line))
(setq headers (cdr headers))))
;; Insert new Sender if the From is strange.
@@ -1261,6 +1273,9 @@ organization."
"~/.organization")))
(and (stringp organization)
(> (length organization) 0)
+ (or (file-exists-p organization)
+ (string-match " " organization)
+ (not (string-match "^/usr/lib/" organization)))
(save-excursion
(gnus-set-work-buffer)
(if (file-exists-p organization)
View
11 lisp/gnus-score.el
@@ -80,7 +80,7 @@ String entries have the form (HEADER (MATCH TYPE SCORE DATE) ...)
where HEADER is the header being scored, MATCH is the string we are
looking for, TYPE is a flag indicating whether it should use regexp or
substring matching, SCORE is the score to add and DATE is the date
-of the last succesful match.")
+of the last successful match.")
(defvar gnus-score-cache nil)
(defvar gnus-scores-articles nil)
@@ -250,12 +250,14 @@ of the last succesful match.")
(if mimic
(message "%c %c %c %c" prefix hchar tchar pchar)
(message "")))))
+
;; We have all the data, so we enter this score.
(if end
()
(gnus-summary-score-entry
(nth 1 entry) ; Header
- (gnus-summary-header (or (nth 2 entry) (nth 1 entry))) ; Match
+ (if (string= (nth 2 entry) "") ""
+ (gnus-summary-header (or (nth 2 entry) (nth 1 entry)))) ; Match
type ; Type
(if (eq 's score) nil score) ; Score
(if (eq 'perm temporary) ; Temp
@@ -981,15 +983,14 @@ SCORE is the score to add."
(save-restriction
(let* ((buffer-read-only nil)
(articles gnus-scores-articles)
- (last (header-number
- (gnus-last-element (car gnus-scores-articles))))
+ (last (header-number (car (car gnus-scores-articles))))
(all-scores scores)
(request-func (cond ((string= "head" (downcase header))
'gnus-request-head)
((string= "body" (downcase header))
'gnus-request-body)
(t 'gnus-request-article)))
- alike last this art entries alist ofunc article)
+ alike this art entries alist ofunc article)
;; Not all backends support partial fetching. In that case,
;; we just fetch the entire article.
(or (gnus-check-backend-function request-func gnus-newsgroup-name)
View
3  lisp/gnus-soup.el
@@ -359,6 +359,7 @@ $ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\""
(string-to-int (gnus-soup-unique-prefix dir))
files)))
(dir (expand-file-name dir)))
+ (setq gnus-soup-areas nil)
(message "Packing %s..." packer)
(if (zerop (call-process "sh" nil nil nil "-c"
(concat "cd " dir " ; " packer)))
@@ -500,7 +501,7 @@ file. The vector contain three strings, [prefix name encoding]."
(and (file-exists-p (concat dir gnus-soup-prefix-file))
(condition-case nil
(load-file (concat dir gnus-soup-prefix-file))
- (setq error nil)))
+ (error nil)))
(setq gnus-soup-last-prefix
(cons (setq entry (cons dir (or gnus-soup-prev-prefix 0)))
gnus-soup-last-prefix)))
View
43 lisp/gnus-uu.el
@@ -73,7 +73,7 @@ There are several user variables to tailor the behaviour of gnus-uu to
your needs. First we have `gnus-uu-user-view-rules', which is the
variable gnus-uu first consults when trying to decide how to view a
file. If this variable contains no matches, gnus-uu examines the
-default rule vaiable provided in this package. If gnus-uu finds no
+default rule variable provided in this package. If gnus-uu finds no
match here, it uses `gnus-uu-user-view-rules-end' to try to make a
match.")
@@ -185,7 +185,7 @@ Default is nil.")
(defvar gnus-uu-view-and-save nil
"*Non-nil means that the user will always be asked to save a file after viewing it.
-If the variable is nil, the suer will only be asked to save if the
+If the variable is nil, the user will only be asked to save if the
viewing is unsuccessful. Default is nil.")
(defvar gnus-uu-ignore-default-view-rules nil
@@ -211,7 +211,7 @@ it nil.")
Default is nil.")
(defvar gnus-uu-correct-stripped-uucode nil
- "*Non-nil means that gnus-uu will *try* to fix uuencoded files that have had traling spaces deleted.
+ "*Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
Default is nil.")
(defvar gnus-uu-save-in-digest nil
@@ -331,7 +331,7 @@ The headers will be included in the sequence they are matched.")
(defun gnus-uu-decode-unshar (n)
"Unshars the current article."
(interactive "P")
- (gnus-uu-decode-with-method 'gnus-uu-unshar-article n))
+ (gnus-uu-decode-with-method 'gnus-uu-unshar-article n nil nil 'scan))
(defun gnus-uu-decode-unshar-and-save (n dir)
"Unshars and saves the current article."
@@ -340,7 +340,7 @@ The headers will be included in the sequence they are matched.")
(read-file-name "Unshar and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir t)))
- (gnus-uu-decode-with-method 'gnus-uu-unshar-article n dir))
+ (gnus-uu-decode-with-method 'gnus-uu-unshar-article n dir nil 'scan))
(defun gnus-uu-decode-save (n file)
"Saves the current article."
@@ -576,18 +576,35 @@ The headers will be included in the sequence they are matched.")
;; Internal functions.
-(defun gnus-uu-decode-with-method (method n &optional save not-insert)
+(defun gnus-uu-decode-with-method (method n &optional save not-insert scan)
(gnus-uu-initialize)
(if save (setq gnus-uu-default-dir save))
(let ((articles (gnus-uu-get-list-of-articles n))
files)
(setq files (gnus-uu-grab-articles articles method t))
+ (let ((gnus-current-article (car articles)))
+ (and scan (setq files (gnus-uu-scan-directory gnus-uu-work-dir))))
(and save (gnus-uu-save-files files save))
(setq files (gnus-uu-unpack-files files))
(gnus-uu-add-file (mapcar (lambda (file) (cdr (assq 'name file))) files))
(setq files (nreverse (gnus-uu-get-actions files)))
(or not-insert (gnus-summary-insert-pseudos files))))
+;; Return a list of files in dir.
+(defun gnus-uu-scan-directory (dir)
+ (let ((files (directory-files dir t))
+ dirs out)
+ (while files
+ (cond ((string-match "/\\.\\.?$" (car files)))
+ ((file-directory-p (car files))
+ (setq dirs (cons (car files) dirs)))
+ (t (setq out (cons (list (cons 'name (car files))
+ (cons 'article gnus-current-article))
+ out))))
+ (setq files (cdr files)))
+ (apply 'nconc out (mapcar (lambda (d) (gnus-uu-scan-directory d))
+ dirs))))
+
(defun gnus-uu-save-files (files dir)
(let ((len (length files))
to-file file)
@@ -599,7 +616,8 @@ The headers will be included in the sequence they are matched.")
(concat dir (file-name-nondirectory file))
dir))
(and (or (not (file-exists-p to-file))
- (gnus-y-or-n-p (format "%s exists; overwrite? " to-file)))
+ (gnus-y-or-n-p (format "%s exists; overwrite? "
+ to-file)))
(copy-file file to-file 1 t))))
(setq files (cdr files)))
(message "Saved %d file%s" len (if (> len 1) "s" ""))))
@@ -1441,20 +1459,21 @@ The headers will be included in the sequence they are matched.")
(defun gnus-uu-initialize ()
(setq gnus-uu-highest-article-number 1)
(gnus-uu-check-for-generated-files)
- (setq gnus-uu-tmp-dir (expand-file-name gnus-uu-tmp-dir))
- (if (string-match "[^/]$" gnus-uu-tmp-dir)
- (setq gnus-uu-tmp-dir (concat gnus-uu-tmp-dir "/")))
+ (setq gnus-uu-tmp-dir (file-name-as-directory
+ (expand-file-name gnus-uu-tmp-dir)))
+
(if (not (file-directory-p gnus-uu-tmp-dir))
(error "Temp directory %s doesn't exist" gnus-uu-tmp-dir)
(if (not (file-writable-p gnus-uu-tmp-dir))
(error "Temp directory %s can't be written to" gnus-uu-tmp-dir)))
+
(setq gnus-uu-work-dir
- (concat gnus-uu-tmp-dir (make-temp-name "gnus")))
+ (make-temp-name (concat gnus-uu-tmp-dir "gnus")))
(gnus-uu-add-file gnus-uu-work-dir)
(if (not (file-directory-p gnus-uu-work-dir))
(make-directory gnus-uu-work-dir))
(set-file-modes gnus-uu-work-dir 448)
- (setq gnus-uu-work-dir (concat gnus-uu-work-dir "/")))
+ (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir)))
;; Kills the temporary uu buffers, kills any processes, etc.
(defun gnus-uu-clean-up ()
View
6 lisp/gnus-vis.el
@@ -68,7 +68,7 @@ To check for marks, e.g. to underline replied articles, use
(defvar gnus-header-face-alist '(("" bold italic))
"Alist of headers and faces used for highlighting them.
The entries in the list has the form `(REGEXP NAME CONTENT)', where
-REGEXP is a regeular expression matching the beginning of the header,
+REGEXP is a regular expression matching the beginning of the header,
NAME is the face used for highlighting the header name and CONTENT is
the face used for highlighting the header content.
@@ -473,7 +473,7 @@ highlight-headers-follow-url-netscape:
["Hide citation" gnus-article-hide-citation t]
["Treat overstrike" gnus-article-treat-overstrike t]
["Remove carriage return" gnus-article-remove-cr t]
- ["Remove quoted-unreadble" gnus-article-de-quoted-unreadable t]
+ ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]
))
)
@@ -560,7 +560,7 @@ highlight-headers-follow-url-netscape:
("matching" . gnus-group-list-matching)
("post" . gnus-group-post-news)
("mail" . gnus-group-mail)
- ("new news" . gnus-group-get-new-news)
+ ("rescan" . gnus-group-get-new-news)
("browse foreign" . gnus-group-browse-foreign)
("exit" . gnus-group-exit)))
View
88 lisp/gnus.el
@@ -128,7 +128,7 @@ in the documentation of `gnus-select-method'")
(defvar gnus-secondary-select-methods nil
"*A list of secondary methods that will be used for reading news.
-This is a list where each element is a complete select methdod (see
+This is a list where each element is a complete select method (see
`gnus-select-method').
If, for instance, you want to read your mail with the nnml backend,
@@ -204,7 +204,7 @@ Each element of this alist should be of the form
If the name of a group is matched by REGEXP, the corresponding scorefiles
will be used for that group.
The first match found is used, subsequent matching entries are ignored (to
-use mutliple matches, see gnus-score-file-multiple-match-alist).
+use multiple matches, see gnus-score-file-multiple-match-alist).
These score files are loaded in addition to any files returned by
gnus-score-find-score-files-function (which see).")
@@ -408,7 +408,7 @@ newsreaders chopping off subject lines, but it might also mean that
unrelated articles that have subject that happen to begin with the
same few characters will be incorrectly gathered.
-If this variable is `fuzzy', Gnus will use a fuzzy algortihm when
+If this variable is `fuzzy', Gnus will use a fuzzy algorithm when
comparing subjects.")
;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
@@ -585,7 +585,7 @@ from their parents will start separate threads.")
"*A regexp to match uninteresting newsgroups in the active file.
Any lines in the active file matching this regular expression are
removed from the newsgroup list before anything else is done to it,
-thus making them effectively non-existant.")
+thus making them effectively non-existent.")
(defvar gnus-ignored-headers
"^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:\\|^Received:\\|^Mail-from:"
@@ -1283,7 +1283,7 @@ variable (string, integer, character, etc).")
(defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls & Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version "(ding) Gnus v0.83"
+(defconst gnus-version "(ding) Gnus v0.84"
"Version number for this version of Gnus.")
(defvar gnus-info-nodes
@@ -1598,7 +1598,6 @@ Thank you for your help in stamping out bugs.
(autoload 'gnus-current-score-file-nondirectory "gnus-score")
(autoload 'gnus-score-adaptive "gnus-score")
(autoload 'gnus-score-remove-lines-adaptive "gnus-score")
- (autoload 'gnus-possibly-score-headers "gnus-score")
(autoload 'gnus-score-find-trace "gnus-score")
;; gnus-edit
@@ -1763,12 +1762,14 @@ Thank you for your help in stamping out bugs.
(setq name (substring name 1 (1- (match-end 0))))))
;; If not, then "address (name)" is used.
(or name
- (and (or (string-match "(.+)" from)
- ;; Fix by MORIOKA Tomohiko <morioka@jaist.ac.jp>.
- ;; XOVER might not support folded From headers.
- (string-match "(.*" from))
+ (and (string-match "(.+)" from)
(setq name (substring from (1+ (match-beginning 0))
- (1- (match-end 0))))))
+ (1- (match-end 0)))))
+ ;; Fix by MORIOKA Tomohiko <morioka@jaist.ac.jp>.
+ ;; XOVER might not support folded From headers.
+ (and (string-match "(.*" from)
+ (setq name (substring from (1+ (match-beginning 0))
+ (match-end 0)))))
;; Fix by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
(list (or name from) (or address from))))
@@ -2196,12 +2197,14 @@ If optional argument RE-ONLY is non-nil, strip `Re:' only."
(save-excursion
(gnus-set-work-buffer)
(insert subject)
- (gnus-simplify-buffer-fuzzy)
+ (inline gnus-simplify-buffer-fuzzy)
(buffer-string))))
(defun gnus-simplify-buffer-fuzzy ()
(goto-char (point-min))
- (while (re-search-forward "^[ \t]*re:[ \t]*" nil t)
+ ;; Fix by Stainless Steel Rat <ratinox@ccs.neu.edu>.
+ (while (re-search-forward "^[ \t]*\\(re\\|fwd\\)[[{(^0-9]*[])}]?[:;][ \t]*"
+ nil t)
(replace-match "" t t))
(goto-char (point-min))
(while (re-search-forward "[ \t\n]*([^()]*)[ \t\n]*$" nil t)
@@ -2218,7 +2221,8 @@ If optional argument RE-ONLY is non-nil, strip `Re:' only."
;; Add the current buffer to the list of buffers to be killed on exit.
(defun gnus-add-current-to-buffer-list ()
- (setq gnus-buffer-list (cons (current-buffer) gnus-buffer-list)))
+ (or (memq (current-buffer) gnus-buffer-list)
+ (setq gnus-buffer-list (cons (current-buffer) gnus-buffer-list))))
(defun gnus-string> (s1 s2)
(not (or (string< s1 s2)
@@ -3183,7 +3187,7 @@ prompt the user for the name of an NNTP server to use."
(and gnus-carpal (gnus-carpal-setup-buffer 'group)))))
(defun gnus-group-list-groups (level &optional unread)
- "List newsgroups with level LEVEL or lower that have unread alticles.
+ "List newsgroups with level LEVEL or lower that have unread articles.
Default is all subscribed groups.
If argument UNREAD is non-nil, groups with no unread articles are also listed."
(interactive (list (and current-prefix-arg
@@ -3332,7 +3336,7 @@ If REGEXP, only list groups matching REGEXP."
(if (not method-only-group)
()
(or entry
- (error "Trying to change non-existant group %s" method-only-group))
+ (error "Trying to change non-existent group %s" method-only-group))
;; We have recevied parts of the actual group info - either the
;; select method or the group parameters. We first check
;; whether we have to extend the info, and if so, do that.
@@ -3564,7 +3568,7 @@ If BACKWARD is non-nil, find the previous newsgroup instead.
If ALL is non-nil, just find any newsgroup.
If LEVEL is non-nil, find group with level LEVEL, or higher if no such
group exists.
-If FIRST-TOO, the current line is also eligeble as a target."
+If FIRST-TOO, the current line is also eligible as a target."
(let ((way (if backward -1 1))
(low 10)
(beg (point))
@@ -4203,9 +4207,8 @@ or nil if no action could be taken."
(if (not entry)
()
(gnus-update-read-articles
- group
- (and (not all) (append (cdr (assq 'tick marked))
- (cdr (assq 'dormant marked))))
+ group (and (not all) (append (cdr (assq 'tick marked))
+ (cdr (assq 'dormant marked))))
nil (and (not all) (cdr (assq 'tick marked))))
(and all marked
(setcar (nthcdr 3 (nth 2 entry))
@@ -4306,7 +4309,7 @@ New newsgroup is added to .newsrc automatically."
(defun gnus-group-transpose-groups (n)
"Move the current newsgroup up N places.
If given a negative prefix, move down instead. The difference between
-N and the number of steps taken is retured."
+N and the number of steps taken is returned."
(interactive "p")
(or (gnus-group-group-name)
(error "No group on current line"))
@@ -4515,7 +4518,7 @@ If N is negative, this group and the N-1 previous groups will be checked."
;; Suggested by Per Abrahamsen <amanda@iesd.auc.dk>.
(defun gnus-group-describe-all-groups (force)
- "Pop up a buffer with descriptons of all newsgroups."
+ "Pop up a buffer with descriptions of all newsgroups."
(interactive "P")
(and force (setq gnus-description-hashtb nil))
(if (not (or gnus-description-hashtb
@@ -4580,7 +4583,7 @@ If N is negative, this group and the N-1 previous groups will be checked."
(pop-to-buffer obuf)))
(defun gnus-group-description-apropos (regexp)
- "List all newsgroups that have names or desccriptions that match a regexp."
+ "List all newsgroups that have names or descriptions that match a regexp."
(interactive "sGnus description apropos (regexp): ")
(if (not (or gnus-description-hashtb
(gnus-read-all-descriptions-files)))
@@ -5986,7 +5989,7 @@ If NO-ARTICLE is non-nil, no article is selected initially."
(defun gnus-thread-sort-by-score (h1 h2)
"Sort threads by root article score.
-Unscored articles will be counted as havin a score of zero."
+Unscored articles will be counted as having a score of zero."
(let ((h1 (gnus-thread-header h1))
(h2 (gnus-thread-header h2)))
(let ((s1 (assq (header-number h1) gnus-newsgroup-scored))
@@ -5996,7 +5999,7 @@ Unscored articles will be counted as havin a score of zero."
(defun gnus-thread-sort-by-total-score (h1 h2)
"Sort threads by the sum of all scores in the thread.
-Unscored articles will be counted as havin a score of zero."
+Unscored articles will be counted as having a score of zero."
(> (gnus-thread-total-score h1) (gnus-thread-total-score h2)))
(defun gnus-thread-total-score (thread)
@@ -6180,10 +6183,10 @@ If READ-ALL is non-nil, all articles in the group are selected."
gnus-fetch-old-headers
gnus-newsgroup-headers
(/= (header-number (car gnus-newsgroup-headers)) (car articles))
- (progn
- (setcar (symbol-value
- (intern (header-id (car gnus-newsgroup-headers))
- gnus-newsgroup-dependencies)) nil)
+ (let ((val (gnus-gethash
+ (downcase (header-id (car gnus-newsgroup-headers)))
+ gnus-newsgroup-dependencies)))
+ (and val (setcar val nil))
(setq gnus-newsgroup-headers (cdr gnus-newsgroup-headers))))
;; Remove cancelled articles from the list of unread articles.
(setq gnus-newsgroup-unreads
@@ -8380,7 +8383,7 @@ functions. (Ie. mail newsgroups at present.)"
(gnus-request-expire-articles gnus-newsgroup-expirable
gnus-newsgroup-name))
;; We go through the old list of expirable, and mark all
- ;; really expired articles as non-existant.
+ ;; really expired articles as non-existent.
(while expirable
(or (memq (car expirable) gnus-newsgroup-expirable)
(gnus-summary-mark-as-read (car expirable) gnus-canceled-mark))
@@ -9903,6 +9906,7 @@ The following commands are available:
(if (get-buffer gnus-article-buffer)
(save-excursion
(set-buffer gnus-article-buffer)
+ (gnus-add-current-to-buffer-list)
(or (eq major-mode 'gnus-article-mode)
(gnus-article-mode)))
(save-excursion
@@ -10525,7 +10529,8 @@ Intended to be used with gnus-article-prepare-hook."
(goto-char (point-min))
(if (re-search-forward "^Date:[ \t]\\(.*\\)$" nil t)
(let ((buffer-read-only nil)
- (date (buffer-substring (match-beginning 1) (match-end 1))))
+ (date (buffer-substring-no-properties
+ (match-beginning 1) (match-end 1))))
(delete-region (match-beginning 1) (match-end 1))
(insert
(timezone-make-date-arpa-standard
@@ -11381,10 +11386,10 @@ The `-n' option line from .newsrc is respected."
;; First we check the two user variables.
(cond
((and gnus-options-subscribe
- (string-match gnus-options-not-subscribe group))
+ (string-match gnus-options-subscribe group))
'subscribe)
((and gnus-options-not-subscribe
- (string-match gnus-options-subscribe group))
+ (string-match gnus-options-not-subscribe group))
'ignore)
;; Then we go through the list that was retrieved from the .newsrc
;; file. This list has elements on the form
@@ -12423,7 +12428,8 @@ If FORCE is non-nil, the .newsrc file is read."
(prev gnus-newsrc-alist)
entry mentry)
(while rc
- (or (assoc (car (car rc)) newsrc)
+ (or (assoc (car (car rc)) newsrc) ; It's already in the alist.
+ (null (nth 4 (car rc))) ; It's a native group.
(if (setq entry (assoc (car (car prev)) newsrc))
(setcdr (setq mentry (memq entry newsrc))
(cons (car rc) (cdr mentry)))
@@ -12437,8 +12443,7 @@ If FORCE is non-nil, the .newsrc file is read."
;; Finally, if we read some options lines, we parse them.
(or (string= gnus-newsrc-options "")
- (gnus-newsrc-parse-options gnus-newsrc-options))
- ))
+ (gnus-newsrc-parse-options gnus-newsrc-options))))
;; Parse options lines to find "options -n !all rec.all" and stuff.
;; The return value will be a list on the form
@@ -12610,7 +12615,8 @@ If FORCE is non-nil, the .newsrc file is read."
gnus-secondary-select-methods)))
(while methods
(gnus-read-descriptions-file (car methods))
- (setq methods (cdr methods)))))
+ (setq methods (cdr methods)))
+ t))
(defun gnus-read-descriptions-file (&optional method)
(let ((method (or method gnus-select-method)))
@@ -13147,7 +13153,8 @@ GROUP using BNews sys file syntax."
(defun gnus-score-find-single (group)
"Return list containing the score file for GROUP."
- (list (gnus-score-file-name group)))
+ (list (gnus-score-file-name group gnus-adaptive-file-suffix)
+ (gnus-score-file-name group)))
(defun gnus-score-find-hierarchical (group)
"Return list of score files for GROUP.
@@ -13158,7 +13165,10 @@ This includes the score file for the group and all its parents."
(setq start (match-beginning 0))
(setq all (cons (substring group 0 start) all)))
(setq all (cons group all))
- (mapcar 'gnus-score-file-name (nreverse all))))
+ (nconc
+ (mapcar 'gnus-score-file-name (setq all (nreverse all))
+ gnus-adaptive-file-suffix)
+ (mapcar 'gnus-score-file-name all))))
(defvar gnus-score-file-alist-cache nil)
View
3  lisp/nnbabyl.el
@@ -497,6 +497,7 @@
"Read new incoming mail."
(let* ((spools (nnmail-get-spool-files group))
(all-spools spools)
+ (group-in group)
incoming incomings)
(nnbabyl-read-mbox)
(if (or (not nnbabyl-get-new-mail) (not nnmail-spool-file))
@@ -515,7 +516,7 @@
(car spools) (concat nnbabyl-mbox-file "-Incoming")))
(setq incomings (cons incoming incomings))
(save-excursion
- (setq group (nnmail-get-split-group (car spools) group))
+ (setq group (nnmail-get-split-group (car spools) group-in))
(let* ((nnmail-prepare-incoming-hook
(cons 'nnbabyl-remove-incoming-delims
nnmail-prepare-incoming-hook))
View
36 lisp/nneething.el
@@ -89,7 +89,8 @@
(setq article (car sequence))
(setq file (nneething-file-name article))
- (if (file-exists-p file)
+ (if (and (file-exists-p file)
+ (> (nth 7 (file-attributes file)) 0))
(progn
(insert (format "221 %d Article retrieved.\n" article))
(nneething-insert-head file)
@@ -296,19 +297,26 @@
(setq case-fold-search nil)
(buffer-disable-undo (current-buffer))
(erase-buffer)
- (if (not (file-exists-p file))
- ()
- (if (or (not (file-regular-p file))
- (progn
- (nnheader-insert-head file)
- (if (nnheader-article-p)
- (progn
- (delete-region (point) (point-max))
- nil))))
- (progn
- (erase-buffer)
- (nneething-make-head file)))
- t)))
+ (cond
+ ((not (file-exists-p file))
+ ;; The file do not exist.
+ nil)
+ ((not (file-regular-p file))
+ ;; It's a dir, so we fudge a head.
+ (nneething-make-head file) t)
+ (t
+ ;; We examine the file.
+ (nnheader-insert-head file)
+ (if (nnheader-article-p)
+ (delete-region
+ (progn
+ (goto-char (point-min))
+ (or (and (search-forward "\n\n" nil t)
+ (1- (point)))
+ (point-max)))
+ (point-max))
+ (erase-buffer)
+ (nneething-make-head file) t)))))
(defun nneething-number-to-file (number)
(car (rassq number nneething-map)))
View
5 lisp/nnfolder.el
@@ -55,7 +55,7 @@ it.")
(defvar nnfolder-always-close nil
"If non-nil, nnfolder attempts to only ever have one mbox open at a time.
This is a straight space/performance trade off, as the mboxes will have to
-be scaned every time they are read in. If nil (default), nnfolder will
+be scanned every time they are read in. If nil (default), nnfolder will
attempt to keep the buffers around (saving the nnfolder's buffer upon group
close, but not killing it), speeding some things up tremendously, especially
such things as moving mail. All buffers always get killed upon server close.")
@@ -619,6 +619,7 @@ such things as moving mail. All buffers always get killed upon server close.")
"Read new incoming mail."
(let* ((spools (nnmail-get-spool-files group))
(all-spools spools)
+ (group-in group)
incomings incoming)
(if (or (not nnfolder-get-new-mail) (not nnmail-spool-file))
()
@@ -637,7 +638,7 @@ such things as moving mail. All buffers always get killed upon server close.")
(nnmail-move-inbox
(car spools) (concat nnfolder-directory "Incoming")))
(setq incomings (cons incoming incomings))
- (setq group (nnmail-get-split-group (car spools) group))
+ (setq group (nnmail-get-split-group (car spools) group-in))
(nnmail-split-incoming incoming 'nnfolder-save-mail nil group)))
(setq spools (cdr spools)))
;; If we did indeed read any incoming spools, we save all info.
View
14 lisp/nnmail.el
@@ -70,7 +70,7 @@ new mail into folder numbers that Gnus has marked as expired.")
"*Articles that are older than `nnmail-expiry-wait' days will be expired.")
(defvar nnmail-expiry-wait-function nil
- "*Variable that holds funtion to specify how old articles should be before they are expired.
+ "*Variable that holds function to specify how old articles should be before they are expired.
The function will be called with the name of the group that the
expiry is to be performed in, and it should return an integer that
says how many days an article can be stored before it is considered
@@ -102,6 +102,9 @@ The Gnus mail backends will read the mail from this directory.")
(defvar nnmail-procmail-suffix ".spool"
"*Suffix of files created by procmail (and the like).")
+(defvar nnmail-resplit-incoming nil
+ "*If non-nil, re-split incoming procmail sorted mail.")
+
(defvar nnmail-read-incoming-hook nil
"*Hook that will be run after the incoming mail has been transferred.
The incoming mail is moved from `nnmail-spool-file' (which normally is
@@ -181,7 +184,7 @@ Example:
(defvar nnmail-split-abbrev-alist
'((any . "from\\|to\\|cc\\|sender\\|apparently-to")
(mail . "mailer-daemon\\|postmaster"))
- "*Alist of abbrevations allowed in `nnmail-split-fancy'.")
+ "*Alist of abbreviations allowed in `nnmail-split-fancy'.")
(defvar nnmail-delete-incoming nil
"*If non-nil, the mail backends will delete incoming files after splitting.
@@ -377,8 +380,7 @@ This is nil by default for reasons of security.")
;; No output => movemail won
nil
(set-buffer errors)
- (subst-char-in-region (point-min) (point-max)
- ?\n ?\ )
+ (subst-char-in-region (point-min) (point-max) ?\n ?\ )
(goto-char (point-max))
(skip-chars-backward " \t")
(delete-region (point) (point-max))
@@ -461,7 +463,9 @@ FUNC will be called with the buffer narrowed to each mail."
(let ((delim (concat "^" rmail-unix-mail-delimiter))
;; If this is a group-specific split, we bind the split
;; methods to just this group.
- (nnmail-split-methods (if (and group (eq nnmail-spool-file 'procmail))
+ (nnmail-split-methods (if (and group
+ (eq nnmail-spool-file 'procmail)
+ (not nnmail-resplit-incoming))
(list (list group ""))
nnmail-split-methods))
start end content-length do-search)
View
3  lisp/nnmbox.el
@@ -451,6 +451,7 @@
"Read new incoming mail."
(let* ((spools (nnmail-get-spool-files group))
(all-spools spools)
+ (group-in group)
incoming incomings)
(nnmbox-read-mbox)
(if (or (not nnmbox-get-new-mail) (not nnmail-spool-file))
@@ -468,7 +469,7 @@
(nnmail-move-inbox
(car spools) (concat nnmbox-mbox-file "-Incoming")))
(save-excursion
- (setq group (nnmail-get-split-group (car spools) group))
+ (setq group (nnmail-get-split-group (car spools) group-in))
(let ((in-buf (nnmail-split-incoming
incoming 'nnmbox-save-mail t group)))
(set-buffer nnmbox-mbox-buffer)
View
8 lisp/nnmh.el
@@ -196,7 +196,7 @@
(save-excursion
(set-buffer nntp-server-buffer)
(erase-buffer)
- (setq dir nnmh-directory)))
+ (setq dir (file-name-as-directory nnmh-directory))))
(setq dir (expand-file-name dir))
;; Recurse down all directories.
(let ((dirs (and (file-readable-p dir)
@@ -222,7 +222,8 @@
(format
"%s %d %d y\n"
(progn
- (string-match (expand-file-name nnmh-directory) dir)
+ (string-match (file-name-as-directory
+ (expand-file-name nnmh-directory)) dir)
(nnmail-replace-chars-in-string
(substring dir (match-end 0)) ?/ ?.))
(apply (function max) files)
@@ -392,6 +393,7 @@
"Read new incoming mail."
(let* ((spools (nnmail-get-spool-files group))
(all-spools spools)
+ (group-in group)
incoming incomings)
(if (or (not nnmh-get-new-mail) (not nnmail-spool-file))
()
@@ -411,7 +413,7 @@
(nnmail-move-inbox
(car spools) (concat nnmh-directory "Incoming")))
(setq incomings (cons incoming incomings))
- (setq group (nnmail-get-split-group (car spools) group))
+ (setq group (nnmail-get-split-group (car spools) group-in))
(nnmail-split-incoming incoming 'nnmh-save-mail nil group)))
(setq spools (cdr spools)))
;; If we did indeed read any incoming spools, we save all info.
View
3  lisp/nnml.el
@@ -481,6 +481,7 @@ all. This may very well take some time.")
"Read new incoming mail."
(let* ((spools (nnmail-get-spool-files group))
(all-spools spools)
+ (group-in group)
incoming incomings)
(if (or (not nnml-get-new-mail) (not nnmail-spool-file))
()
@@ -501,7 +502,7 @@ all. This may very well take some time.")
(setq incoming
(nnmail-move-inbox
(car spools) (concat nnml-directory "Incoming")))
- (setq group (nnmail-get-split-group (car spools) group))
+ (setq group (nnmail-get-split-group (car spools) group-in))
(nnmail-split-incoming incoming 'nnml-save-mail nil group)
(setq incomings (cons incoming incomings))))
(setq spools (cdr spools)))
View
16 lisp/nnsoup.el
@@ -234,12 +234,15 @@ The SOUP packet file name will be inserted at the %s.")
()
(let ((area (cdr (assoc group nnsoup-group-alist)))
min max)
- (setq min (car (car (car area))))
- (while (cdr area)
- (setq area (cdr area)))
- (setq max (cdr (car (car area))))
- (insert (format "211 %d %d %d %s\n"
- (max (1+ (- max min)) 0) min max group))))
+ (save-excursion
+ (set-buffer nntp-server-buffer)
+ (erase-buffer)
+ (setq min (car (car (car area))))
+ (while (cdr area)
+ (setq area (cdr area)))
+ (setq max (cdr (car (car area))))
+ (insert (format "211 %d %d %d %s\n"
+ (max (1+ (- max min)) 0) min max group)))))
t)
(defun nnsoup-close-group (group &optional server)
@@ -405,6 +408,7 @@ The SOUP packet file name will be inserted at the %s.")
?c)
(file-exists-p (nnsoup-file prefix)))
(set-buffer (nnsoup-index-buffer prefix))
+ (widen)
(goto-char (point-min))
(forward-line (- article (car (car area))))
(setq beg (read (current-buffer)))
View
2  lisp/nnspool.el
@@ -266,7 +266,7 @@ Newsgroup must be selected before calling this function."
t)
(defun nnspool-request-list (&optional server)
- "List active newsgoups."
+ "List active newsgroups."
(save-excursion
(nnspool-find-file nnspool-active-file)))
View
4 lisp/nntp.el
@@ -56,7 +56,7 @@ hook, use the variable `nntp-address'.")
(defvar nntp-server-opened-hook nil
"*Hook used for sending commands to the server at startup.
-The default value is `nntp-send-mode-reader', whick makes an innd
+The default value is `nntp-send-mode-reader', which makes an innd
server spawn an nnrpd server. Another useful function to put in this
hook might be `nntp-send-authinfo', which will prompt for a password
to allow posting from the server. Note that this is only necessary to
@@ -200,7 +200,7 @@ instead call function `nntp-status-message' to get status message.")
'(nntp-current-group "")))
-;;; Interface funtions.
+;;; Interface functions.
(defun nntp-retrieve-headers (sequence &optional newsgroup server)
"Retrieve the headers to the articles in SEQUENCE."
View
144 texi/gnus.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@comment %**start of header (This is for running Texinfo on a region.)
@setfilename gnus
-@settitle (ding) Gnus 0.80 Manual
+@settitle (ding) Gnus 0.84 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -90,9 +90,6 @@ luck.
* Key Index:: Key Index.
@end menu
-This manual hasn't been prperly proff-read yet, so typos abound, and
-misleading information is sure to exist.
-
@node History
@chapter History
@@ -100,7 +97,7 @@ misleading information is sure to exist.
@sc{gnus} was written by Masanobu UMEDA. When autumn crept up in '94,
Lars Magne Ingebrigtsen grew bored and decided to rewrite Gnus.
-The recommended pronounciation of the name this program is "ding
+The recommended pronunciation of the name this program is "ding
guh-noose", with "ding" being half-sung in a loud, high-pitched voice,
and "guh-noose" being grumbled and a disaffected fashion. Any
irritation and/or damage this name may cause you is not the
@@ -129,7 +126,7 @@ which makes it a more appropriate name, don't you think?)
@node Compatibility
@section Compatibility
-@cindex compatability
+@cindex compatibility
(ding) Gnus was designed to be fully compatible with @sc{gnus}. Almost
all key bindings have been kept. More key bindings have been added, of
course, but only in one or two obscure cases have old bindings been
@@ -234,11 +231,13 @@ suggested and added by Hallvard B Furuseth.
@item
Brian Edmonds has written @code{gnus-bbdb}, as well as other bits and
pieces.
+@item
+Ricardo Nassif did the proof-reading.
@item
Kevin Davidson came up with the name @dfn{ding}, so blame him.
@item
-Stainless Steel Rat, Jack Vinson, Daniel Quinlan, Ilja Weis and Andrew
-Eskilsson have all contributed code and suggestions.
+Stainless Steel Rat, Jack Vinson, Daniel Quinlan, Ilja Weis, Frank D. Cringle
+ and Andrew Eskilsson have all contributed code and suggestions.
@end itemize
@@ -256,23 +255,11 @@ summary buffer, leading to errors. Such errors may be detected by
looking for any hilit-specific functions in the @code{*Backtrace*}
buffer. If such a reference exists, you should be using the code below.
-On the other hand, @code{gnus-visual} makes no attempt to highlight the
-article buffer, while hilit does a very good job of this. There is a
-compatibility problem here though, since hilit uses
-@code{gnus-article-prepare-hook} to do its magic. This hook is executed
-@emph{before} headers are hidden, via
-@code{gnus-article-hide-headers-if-wanted} which is run from
-@code{gnus-article-display-hook}. The act of hiding the headers undoes
-all of the hilighting already done. A similar effect occurred in vanilla
-@sc{gnus 4.1} if @code{gnus-show-mime} was set to @code{t}, since
-@sc{mime} processing, too, is done after this hook is executed.
-
-The solution here is to use @code{gnus-article-display-hook} for
-highlighting (and for all purposes where you used
-@code{gnus-article-prepare-hook} earlier). This hook is run after
-@sc{mime} processing, and is the last thing done before actually
-displaying the article. Add the code below to your @file{.gnus} file to
-get the right functions onto the right hooks.
+You can also get @code{gnus-visual} to highlight the article buffer, so
+you should get rid of all hilit-specific Gnus calls.
+
+Add the code below to your @file{.gnus} file to remove all the hilit
+crud:
@lisp
(add-hook 'gnus-startup-hook
@@ -283,6 +270,7 @@ get the right functions onto the right hooks.
(remove-hook 'gnus-summary-prepare-hook
'hilit-rehighlight-buffer-quietly)
(remove-hook 'gnus-summary-prepare-hook 'hilit-install-line-hooks)
+ (setq gnus-mark-article-hook '(gnus-summary-mark-unread-as-read))
;; this is too early for the purpose of highlighting
(remove-hook 'gnus-article-prepare-hook
'hilit-rehighlight-buffer-quietly)
@@ -475,7 +463,7 @@ If @code{gnus-nntp-server} is set, this variable will override
@vindex gnus-secondary-servers
You can also make Gnus prompt you interactively for the name of an
@sc{nntp} server. If you give a non-numerical prefix to @code{gnus}
-(ie. @kbd{C-u M-x gnus}), Gnus will let you choose between the servers
+(i.e., @kbd{C-u M-x gnus}), Gnus will let you choose between the servers
in the @code{gnus-secondary-servers} list (if any). You can also just
type in the name of any server you feel like visiting.
@@ -517,7 +505,7 @@ killed. Your system administrator should have set this variable to
something useful.
Since she hasn't, Gnus will just subscribe you to a few randomly picked
-groups (ie. @samp{*.newusers}). (@dfn{Random} is here defined as
+groups (i.e., @samp{*.newusers}). (@dfn{Random} is here defined as
"whatever Lars thinks you should read".)
You'll also be subscribed to the Gnus documentation group, which should
@@ -537,7 +525,7 @@ the news groups, you may want to start Gnus anyway.
Gnus, being the trusting sort of program, will ask whether to proceed
without a native select method if that server can't be contacted. This
-will happen whether the server doesn't actually exist (ie. you have
+will happen whether the server doesn't actually exist (i.e., you have
given the wrong address) or the server has just momentarily taken ill
for some reason or other.
@@ -991,7 +979,7 @@ the @var{N} newest articles, if @var{N} is negative, fetch the
@kindex RET (Group)
@findex gnus-group-select-group
Select the current group and switch to the summary buffer
-(@code{gnus-group-select-group}). Takes the same aguments as
+(@code{gnus-group-select-group}). Takes the same arguments as
@code{gnus-group-read-group} - the only difference is that this command
does not display the first unread article automatically upon group
entry.
@@ -1580,7 +1568,7 @@ sequence of articles. Sorting on date might be an option here
(@pxref{Selecting a Group}.
One limitation, however - all groups that are included in a virtual
-group has to be alive (ie. subscribed or unsubscribed). Killed or
+group has to be alive (i.e., subscribed or unsubscribed). Killed or
zombie groups can't be component groups for nnvirtual groups.
@node nnkiboze
@@ -1667,7 +1655,7 @@ directory and assign article numbers to each file. When you enter such a
group, @code{nneething} must create "headers" that Gnus can use. After
all, Gnus is a newsreader, in case you're forgetting. @code{nneething}
does this in a two-step process. First, it snoops each file in question.
-If the file looks like an article (ie. the first few lines look like
+If the file looks like an article (i.e., the first few lines look like
headers), it will use this as the head. If this is just some random file
without a head (eg. a C source file), @code{nneething} will cobble up a
header out of thin air. It will use file ownership, name and date and do
@@ -1684,7 +1672,7 @@ traverse the entire disk this way, if you feel like, but remember that
Gnus is not dired, really, and does not intend to be, either.
There are two overall modes to this action - ephemeral or solid. When
-doing the ephemeral thing (ie. @kbd{G D} from the group buffer), Gnus
+doing the ephemeral thing (i.e., @kbd{G D} from the group buffer), Gnus
will not store information on what files you have read, and what files
are new, and so on. If you create a solid @code{nneething} group the
normal way with @kbd{G m}, Gnus will store a mapping table between
@@ -1786,7 +1774,7 @@ the new incoming mail, and can be used for, well, anything, really.
@vindex nnmail-tmp-directory
@code{nnmail-tmp-directory} says where to move the incoming mail to
while processing it. This is usually done in the same directory that
-the mail backend habitates (ie. @file{~/Mail/}), but if this variable is
+the mail backend inhabits (i.e., @file{~/Mail/}), but if this variable is
non-@code{nil}, it will be used instead.
@vindex nnmail-delete-incoming
@@ -1824,7 +1812,7 @@ how the incoming mail is to be split into groups.
@lisp
(setq nnmail-split-methods
'(("mail.junk" "^From:.*Lars Ingebrigtsen")
- ("mail.crazzy" "^Subject:.*die\\|^Organization:.*flabby")
+ ("mail.crazy" "^Subject:.*die\\|^Organization:.*flabby")
("mail.other" "")))
@end lisp
@@ -1870,7 +1858,7 @@ play with the @code{nnmail-split-fancy} variable.
Let's look at an example value of this variable first:
@lisp
-;; Messages from the mailer deamon are not crossposted to any of
+;; Messages from the mailer daemon are not crossposted to any of
;; the ordinary groups. Warnings are put in a separate group
;; from real errors.
(| ("from" mail (| ("subject" "warn.*" "mail.warning")
@@ -1966,6 +1954,11 @@ in @code{nnmail-procmail-directory}. To arrive at the file name to put
the incoming mail in, append @code{nnmail-procmail-suffix} to the group
name. The mail backends will read the mail from these files.
+@vindex nnail-resplit-incoming
+When Gnus reads a file called @file{mail.misc.spool}, this mail will be
+put in the @code{mail.misc}, as one would expect. However, if you want
+Gnus to split the mail the normal way, you could set
+@code{nnail-resplit-incoming} to @code{t}.
@node Expiring Old Mail Articles
@subsubsection Expiring Old Mail Articles
@@ -2220,7 +2213,7 @@ If non-@code{nil}, @code{nnmh} will read incoming mail.
@item nnmh-be-safe
@vindex nnmh-be-safe
-If non-@code{nil}, @code{nnmh} will go to ridiculous lenghts to make
+If non-@code{nil}, @code{nnmh} will go to ridiculous lengths to make
sure that the articles in the folder is actually what Gnus think they
are. It will check date stamps, and stat everything in sight, so
setting this to @code{t} will mean a serious slow-down. If you never
@@ -2340,7 +2333,7 @@ These commands all list various slices of the groups that are available.
List all groups that have unread articles
(@code{gnus-group-list-groups}). If the numeric prefix is used, this
command will list only groups of level ARG and lower. By default, it
-only lists groups of level five or lower (ie. just subscribed groups).
+only lists groups of level five or lower (i.e., just subscribed groups).
@item L
@itemx A u
@kindex A u (Group)
@@ -2349,7 +2342,7 @@ only lists groups of level five or lower (ie. just subscribed groups).
List all groups, whether they have unread articles or not
(@code{gnus-group-list-all-groups}). If the numeric prefix is used,
this command will list only groups of level ARG and lower. By default,
-it lists groups of level seven or lower (ie. just subscribed and
+it lists groups of level seven or lower (i.e., just subscribed and
unsubscribed groups).
@item A k
@kindex A k (Group)
@@ -2627,7 +2620,7 @@ move around, read articles, post articles and reply to articles.
* Choosing Articles:: Reading articles.
* Paging the Article:: Scrolling the current article.
* Reply Followup and Post:: Posting articles.
-* Cancelling and Superseding:: "Whoops, I shouldn't have called him that."
+* Canceling and Superseding:: "Whoops, I shouldn't have called him that."
* Ticking and Marking:: Marking articles as read, expirable, etc.
* Threading:: How threads are made.
* Asynchronous Fetching:: Gnus might be able to pre-fetch articles.
@@ -2735,7 +2728,7 @@ default level. If the difference between
@item r
@code{References}.
@item t
-Number of articles in the current subthread. Using this spec will slow
+Number of articles in the current sub-thread. Using this spec will slow
down summary buffer generation somewhat.
@item u
User defined specifier. The next character in the format string should
@@ -3095,7 +3088,7 @@ Variables for customizing outgoing mail:
@item gnus-reply-to-function
@vindex gnus-reply-to-function
Gnus uses the normal methods to determine where replies are to go, but
-you can change the behaviour to suit your needs by fiddling with this
+you can change the behavior to suit your needs by fiddling with this
variable.
If you want the replies to go to the @samp{Sender} instead of the
@@ -3150,7 +3143,7 @@ Three variables for customizing what to use when:
@vindex gnus-mail-reply-method
@item gnus-mail-reply-method
-This function is used to compose replys. The three functions avaibale
+This function is used to compose replies. The three functions avaibale
are:
@findex gnus-mail-reply-using-vm
@@ -3301,7 +3294,7 @@ value.
@vindex gnus-followup-to-function
This variable is most useful in mail groups, where "following up" really
means sending a mail to a list address. Gnus uses the normal methods to
-determine where follow-ups are to go, but you can change the behaviour
+determine where follow-ups are to go, but you can change the behavior
to suit your needs by fiddling with this variable.
If you want the followups to go to the @samp{Sender} instead of the
@@ -3392,7 +3385,7 @@ checking/generation.
@item gnus-inews-article-hook
@vindex gnus-inews-article-hook
This hook is called right before the article is posted. By default it
-handles FCC processing (ie. saving the article to a file.)
+handles FCC processing (i.e., saving the article to a file.)
@item gnus-inews-article-header-hook
@vindex gnus-inews-article-header-hook
@@ -3412,9 +3405,9 @@ list. Legal elemetents are:
@item subject-cmsg
Check the subject for commands.
@item multiple-headers
-Check for the existance of multiple equal headers.
+Check for the existence of multiple equal headers.
@item sendsys
-Check for the existance of version and sendsys commands.
+Check for the existence of version and sendsys commands.
@item message-id
Check whether the @code{Message-ID} looks ok.
@item from
@@ -3515,7 +3508,7 @@ Gnus variables if it is non-@code{nil}.
Here are two example values of this variable: @samp{"larsi@@ifi.uio.no
(Lars Magne Ingebrigtsen)"} and @samp{"Lars Magne Ingebrigtsen
<larsi@@ifi.uio.no>"}. The latter version is recommended, but the name
-has to be quoted if it contains non-alphanumerical characters -
+has to be quoted if it contains non-alpha-numerical characters -
@samp{"\"Lars M. Ingebrigtsen\" <larsi@@ifi.uio.no>"}.
@item mail-default-headers
@@ -3553,9 +3546,9 @@ spell-checking via the @code{ispell} package:
(add-hook 'mail-send-hook 'ispell-message) ;for mail posts via sendmail
@end lisp
-@node Cancelling and Superseding
-@section Cancelling Articles
-@cindex cancelling articles
+@node Canceling and Superseding
+@section Canceling Articles
+@cindex canceling articles
@cindex superseding articles
Have you ever written something, and then decided that you really,
@@ -3568,7 +3561,7 @@ Well, you can't cancel mail, but you can cancel posts.
Find the article you wish to cancel (you can only cancel your own
articles, so don't try any funny stuff). Then press @kbd{C} or @kbd{S
c} (@code{gnus-summary-cancel-article}). Your article will be
-cancelled - machines all over the world will be deleting your article.
+canceled - machines all over the world will be deleting your article.
Be aware, however, that not all sites honor cancels, so your article may
live on here and there, while most sites will delete the article in
@@ -3585,7 +3578,14 @@ Go to the original article and press @kbd{S s}
where you can edit the article all you want before sending it off the
usual way.
-The same goes for superseding as for cancelling, only more so: Some
+@vindex gnus-delete-supersedes-headers
+You probably want to delete some of the old headers before sending the
+superseding article - @code{Path} and @code{Date} are probably
+incorrect. Set @code{gnus-delete-supersedes-headers} to a regexp to
+match the lines you want removed. The default is
+@samp{"^Path:\\|^Date"}.
+
+The same goes for superseding as for canceling, only more so: Some
sites do not honor superseding. On those sites, it will appear that you
have posted almost the same article twice.
@@ -3597,7 +3597,7 @@ find the article you just posted, with all the headers intact. Change
the @samp{Message-ID} header to a @samp{Cancel} or @samp{Supersedes}
header by substituting one of those words for @samp{Message-ID}. Then
just press @kbd{C-c C-c} to send the article as you would do normally.
-The previous article will be cancelled/superseded.
+The previous article will be canceled/superseded.
Just remember, kids: There is no 'c' in 'supersede'.
@@ -3680,7 +3680,7 @@ Marked as read by having a too low score (@code{gnus-low-score-mark}).
@item C
Marked as read by a catchup (@code{gnus-catchup-mark}).
@item G
-Cancelled article (@code{gnus-cancelled-mark})
+Canceled article (@code{gnus-cancelled-mark})
@end table
All these marks just mean that the article is marked as read, really.
@@ -3935,6 +3935,8 @@ fashion.
@node Customizing Threading
@subsection Customizing Threading
@cindex customizing threading
+@cindex <
+@cindex >
@table @code
@item gnus-show-threads
@@ -3980,12 +3982,14 @@ When there is no real root of a thread, Gnus will have to fudge
something. This variable says what fudging method Gnus should use.
There are four possible values:
+@cindex adopting articles
+
@table @code
@item adopt
Gnus will make the first of the orphaned articles the parent. This
parent will adopt all the other articles. The adopted articles will be
-marked as such by pointy brackets instead of the standard square
-brackets. This is the default method.
+marked as such by pointy brackets (@samp{<>}) instead of the standard
+square brackets (@samp{[]]). This is the default method.
@item dummy
Gnus will create a dummy summary line that will pretend to be the
parent. This dummy line does not correspond to any real article, so
@@ -4019,7 +4023,7 @@ is @code{nil}, which is the default, a change in the subject will result
in a new thread.
@item gnus-thread-indent-level
@vindex gnus-thread-indent-level
-This is a number that says how much each subthread should be indented.
+This is a number that says how much each sub-thread should be indented.
The default is @samp{4}.
@end table
@@ -4033,7 +4037,7 @@ The default is @samp{4}.
@kindex T k (Summary)
@kindex M-C-k (Summary)
@findex gnus-summary-kill-thread
-Mark all articles in the current subthread as read
+Mark all articles in the current sub-thread as read
(@code{gnus-summary-kill-thread}). If the prefix argument is positive,
remove all marks instead. If the prefix argument is negative, tick
articles instead.
@@ -4200,7 +4204,7 @@ So where does the massive article-fetching and storing come into the
picture? The @code{gnus-jog-cache} command will go through all
subscribed newsgroups, request all unread articles, and store them in
the cache. You should only ever, ever ever ever, use this command if 1)
-your connetion to the @sc{nntp} server is really, really, really slow
+your connection to the @sc{nntp} server is really, really, really slow
and 2) you have a really, really, really huge disk. Seriously.
@@ -4343,7 +4347,7 @@ are avoided.
@cindex saving articles
Gnus can save articles in a number of ways. Below is the documentation
-for saving articles in a fairly straight-forward fashion (ie. little
+for saving articles in a fairly straight-forward fashion (i.e., little
processing of the article is done before it is saved). For a different
approach (uudecoding, unsharing) you should use @code{gnus-uu}
(@pxref{Decoding Articles}).
@@ -4470,7 +4474,7 @@ encoded in some way or other. Gnus can decode them for you.
@menu
* Uuencoded Articles:: Uudecode articles.
* Shared Articles:: Unshar articles.
-* PostScript Files:: Split PoscScript.
+* PostScript Files:: Split PostScript.
@end menu
All these functions use the process/prefix convention
@@ -4649,7 +4653,7 @@ Files with name matching this regular expression won't be viewed.
Files with a @sc{mime} type matching this variable won't be viewed.
Note that Gnus tries to guess what type the file is based on the name.
@code{gnus-uu} is not a @sc{mime} package (yet), so this is slightly
-kludgy.
+kludgey.
@item gnus-uu-tmp-dir
@vindex gnus-uu-tmp-dir
@@ -5068,7 +5072,7 @@ Score on the author name.
@item s
Score on the subject line.
@item x
-Score on the Xref line - ie. the cross-posting line.
+Score on the Xref line - i.e., the cross-posting line.
@item t
Score on thread - the References line.
@item d
@@ -5095,8 +5099,8 @@ Regexp matching
@end table
@item
-The fourth and final key says whether this is a temporary (ie. expiring)
-score entry, or a permanent (ie. non-expiring) score entry, or whether
+The fourth and final key says whether this is a temporary (i.e., expiring)
+score entry, or a permanent (i.e., non-expiring) score entry, or whether
it is to be done immediately, without adding to the score file.
@table @kbd
@item t
@@ -5418,7 +5422,7 @@ variable name or a "real" mark - a character). Following this key is a
random number of header/score pairs.
To take @code{gnus-del-mark} as an example - this alist says that all
-articles that have that mark (ie. are marked with @samp{D}) will have a
+articles that have that mark (i.e., are marked with @samp{D}) will have a
score entry added to lower based on the @code{From} header by -4, and
lowered by @code{Subject} by -1. Change this to fit your prejudices.
@@ -6371,7 +6375,7 @@ By default, Gnus displays information on the current article in the mode
lines of the summary and article buffers. The information Gnus wishes
to display (eg. the subject of the article) is often longer than the
mode lines, and therefore have to be cut off at some point. This
-variable says how long the other elements on the line is (ie. the
+variable says how long the other elements on the line is (i.e., the
non-info part). If you put additional elements on the mode line (eg. a
clock), you should modify this variable:
@c Hook written by Keinonen Kari <kk85613@cs.tut.fi>.
@@ -6384,12 +6388,12 @@ clock), you should modify this variable:
@item gnus-visual
@vindex gnus-visual
-If @code{nil}, Gnus won't attempt to create menus or use fancy colours
+If @code{nil}, Gnus won't attempt to create menus or use fancy colors
or fonts. This will also inhibit loading the @file{gnus-visual.el}
file.
@item gnus-mouse-face
@vindex gnus-mouse-face
-This is the face (ie. font) used for mouse highlighting in Gnus. No
+This is the face (i.e., font) used for mouse highlighting in Gnus. No
mouse highlights will be done if @code{gnus-visual} is @code{nil}.
@end table
@@ -6583,3 +6587,5 @@ but at the common table.@*
@c Local Variables:
@c outline-regexp: "@chap\\|@\\(sub\\)*section\\|@appendix \\|@appendix\\(sub\\)*sec\\|\^L"
@c End:
+
+
Please sign in to comment.
Something went wrong with that request. Please try again.