+Mon Sep 9 21:16:11 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-picon.el (gnus-picons-refresh-before-display): New
+ variable.
+ (gnus-picons-insert-face-if-exists): Put bar back in.
+
+Mon Sep 9 20:31:56 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * gnus-uu.el (gnus-uu-digest-mail-forward): Use the newsgroup name.
+
+Mon Sep 9 20:04:35 1996 Kurt Swanson <kurt@dna.lth.se>
+
+ * gnus-salt.el (gnus-pick-mouse-pick-region): New function.
+
+Mon Sep 9 18:37:07 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * gnus-sum.el (gnus-summary-enter-digest-group): Bugged.
+
+ * gnus-score.el (gnus-adaptive-word-syntax-table): Make ' a
+ word-constituant character.
+
+Sun Sep 8 14:46:01 1996 Lars Magne Ingebrigtsen <larsi@hymir.ifi.uio.no>
+
+ * gnus-group.el (gnus-group-make-useful-group): New command and
+ keystroke.
+ (gnus-useful-groups): New variable.
+
+Sun Sep 8 14:46:01 1996 Lars Magne Ingebrigtsen <larsi@hymir.ifi.uio.no>
+
+ * gnus.el: Red Gnus v0.30 is released.
+
Sun Sep 8 13:26:36 1996 Lars Magne Ingebrigtsen <larsi@gymir.ifi.uio.no>
* nndoc.el (nndoc-article-begin-function): Defvarred.
Wed Sep 4 05:19:58 1996 Lars Magne Ingebrigtsen <larsi@hrym.ifi.uio.no>
* nnmail.el (nnmail-move-inbox): Refuse to move if
- gnnmai-crash-bux can't be written.
+ nnmail-crash-box can't be written.
* gnus-art.el (gnus-button-url-regexp): Include : and ; in
regexp.
Sat Aug 24 23:53:32 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
- * nnmail.el (nnmail-get-new-mail): Tried calling nonexistsing
+ * nnmail.el (nnmail-get-new-mail): Tried calling nonexisting
functions.
Sat Aug 24 23:30:07 1996 Lars Magne Ingebrigtsen <larsi@nipling.ifi.uio.no>
Wed Aug 21 15:06:47 1996 <Wesley.Hardaker@sphys.unil.ch>
- * smiley.el (smiley-buffer): Added some additinal extent parameters.
+ * smiley.el (smiley-buffer): Added some additional extent parameters.
(smiley-toggle-extent): rewrote to use above.
Mon Aug 19 20:19:59 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
Tue Aug 20 17:30:00 1996 <Wesley.Hardaker@sphys.unil.ch>
- * smiley.el (smiley-map): New keymap for smiley's.
- (smiley-toggle-extent): New function to toggle smiley invisiblity.
+ * smiley.el (smiley-map): New keymap for smileys.
+ (smiley-toggle-extent): New function to toggle smiley invisibility.
(smiley-buffer): Use them.
Sun Aug 18 12:46:12 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Sat Aug 10 00:08:42 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
- * gnus-util.el (gnus-date-iso8601): Protect agains buggy Dates.
+ * gnus-util.el (gnus-date-iso8601): Protect against buggy Dates.
Fri Aug 9 06:39:22 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
* nndoc.el (nndoc-generate-lanl-gov-head): New function
(nndoc-transform-lanl-gov-announce): New function
- (nndoc-lanl-gov-announce-type-p): New funtion
+ (nndoc-lanl-gov-announce-type-p): New function
(nndoc-type-alist): Added support for preprint announcements
(nndoc-type-alist): Only use 'slack-digests' if forced to.
Tue Aug 6 23:00:01 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
- * gnus-score.el (gnus-score-string): Wiwnd't do word and fuzzy
+ * gnus-score.el (gnus-score-string): Wouldn't do word and fuzzy
matching properly.
Mon Aug 5 22:23:03 1996 Raja R. Harinath <harinath@cs.umn.edu>
Wed Jul 31 15:23:54 1996 Ken Olstad <ken@mn.cheyenne.com>
- * gnus-xmas.el (gnus-xmas-redefine): Disbale XFace when running
+ * gnus-xmas.el (gnus-xmas-redefine): Disable XFace when running
under tty.
Wed Jul 31 14:21:38 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
* gnus-async.el (gnus-use-header-prefetch): New variable.
(gnus-async-set-article-buffer): Removed.
(gnus-async-prefetch-headers): New function.
- (gnus-asynch-retrieve-fetched-headers): New function.
- (gnus-async-prefetch-header-buffer): New variable.
+ (gnus-async-retrieve-fetched-headers): New function.
+ (gnus-async-prefetch-headers-buffer): New variable.
* gnus-salt.el (gnus-summary-pick-line-format): New variable.
(gnus-pick-mode): Use it.
(article-unhide-text (point-min) (point-max)))))
(defun article-emphasize (&optional arg)
- "Empasize text according to `gnus-emphasis-alist'."
+ "Emphasize text according to `gnus-emphasis-alist'."
(interactive (article-hidden-arg))
(unless (article-check-hidden-text 'emphasis arg)
(save-excursion
(funcall (custom-property custom 'find) custom tag))
(defun custom-travel-path (custom path)
- "Find decedent of CUSTOM by looking through PATH."
+ "Find descendent of CUSTOM by looking through PATH."
(if (null path)
custom
(custom-travel-path (custom-find custom (car path)) (cdr path))))
(eval-when-compile (require 'cl))
(defvar earcon-auto-play nil
- "When True, automatially play sounds as well as buttonize them.")
+ "When True, automatically play sounds as well as buttonize them.")
(defvar earcon-prefix "**"
"The start of an earcon")
will be kept while the rest will be deleted before saving.")
(defvar gnus-default-article-saver 'gnus-summary-save-in-rmail
- "*A function to save articles in your favorite format.
+ "*A function to save articles in your favourite format.
The function must be interactively callable (in other words, it must
be an Emacs command).
(defun gnus-article-save (save-buffer file &optional num)
"Save the currently selected article."
(unless gnus-save-all-headers
- ;; Remove headers accoring to `gnus-saved-headers'.
+ ;; Remove headers according to `gnus-saved-headers'.
(let ((gnus-visible-headers
(or gnus-saved-headers gnus-visible-headers))
(gnus-article-buffer save-buffer))
;;; Utility functions.
(defun gnus-group-asynchronous-p (group)
- "Say whether GROUP is fetched from a server that supports asynchronocity."
+ "Say whether GROUP is fetched from a server that supports asynchronicity."
(gnus-asynchronous-p (gnus-find-method-for-group group)))
;;; Somewhat bogus semaphores.
(default . gnus-article-hide-citation))
((tag . "Add Buttons")
(doc . "\
-Make URL's into clickable buttons.
+Make URLs into clickable buttons.
")
(type . const)
(default . gnus-article-add-buttons))
"Non-nil if running under XEmacs.")
(defvar gnus-mouse-2 [mouse-2])
+(defvar gnus-down-mouse-2 [down-mouse-2])
(eval-and-compile
(autoload 'gnus-xmas-define "gnus-xmas")
;; How do I Rate an article??
;; Before you type n to go to the next article, hit a number from 1-5
;; Type r in the summary buffer and you will be prompted.
-;; Note that when you're in grouplens-minor-mode 'r' maskes the
+;; Note that when you're in grouplens-minor-mode 'r' masks the
;; usual reply binding for 'r'
;;
;; What if, Gasp, I find a bug???
;; mail buffer with the state of variables and buffers that will help
;; me debug the problem. A short description up front would help too!
;;
-;; How do I display the prediction for an aritcle:
+;; How do I display the prediction for an article:
;; If you set the gnus-summary-line-format as shown above, the score
;; (prediction) will be shown automatically.
;;
The scale factor is applied after the offset.")
(defvar gnus-grouplens-override-scoring 'override
- "Tell Grouplens to override the normal Gnus scoring mechanism.
+ "Tell GroupLens to override the normal Gnus scoring mechanism.
GroupLens scores can be combined with gnus scores in one of three ways.
'override -- just use grouplens predictions for grouplens groups
'combine -- combine grouplens scores with gnus scores
(concat "login " grouplens-pseudonym))
(if (bbb-read-response bbb-process)
(setq grouplens-bbb-token (bbb-extract-token-number))
- (gnus-message 3 "Error: Grouplens login failed")))))
+ (gnus-message 3 "Error: GroupLens login failed")))))
(gnus-message 3 "Error: you must set a pseudonym"))
grouplens-bbb-token)
highlight the line according to the `gnus-group-highlight'
variable.")
+(defvar gnus-useful-groups
+ `(("emacs.ding"
+ (nntp "sunsite.auc.dk"
+ (nntp-address "sunsite.auc.dk")))
+ ("gnus-help"
+ (nndoc "gnus-help"
+ (nndoc-article-type mbox)
+ (eval `(nndoc-address
+ ,(let ((file (nnheader-find-etc-directory
+ "gnus-tut.txt" t)))
+ (unless file
+ (error "Couldn't find doc group"))
+ file))))))
+ "Alist of useful group-server pairs.")
+
;;; Internal variables
(defvar gnus-group-sort-alist-function 'gnus-group-sort-flat
(gnus-define-keys (gnus-group-group-map "G" gnus-group-mode-map)
"d" gnus-group-make-directory-group
"h" gnus-group-make-help-group
+ "u" gnus-group-make-useful-group
"a" gnus-group-make-archive-group
"k" gnus-group-make-kiboze-group
"m" gnus-group-make-group
["Previous unread" gnus-group-prev-unread-group t]
["Next unread same level" gnus-group-next-unread-group-same-level t]
["Previous unread same level"
- gnus-group-previous-unread-group-same-level t]
+ gnus-group-prev-unread-group-same-level t]
["Jump to group" gnus-group-jump-to-group t]
["First unread group" gnus-group-first-unread-group t]
["Best unread group" gnus-group-best-unread-group t])
(setq gnus-group-marked (cons group (delete group gnus-group-marked)))))
(defun gnus-group-universal-argument (arg &optional groups func)
- "Perform any command on all groups accoring to the process/prefix convention."
+ "Perform any command on all groups according to the process/prefix convention."
(interactive "P")
(let ((groups (or groups (gnus-group-process-prefix arg)))
func)
(gnus-group-update-group (or new-group group))
(gnus-group-position-point)))
+(defun gnus-group-make-useful-group (group method)
+ (interactive
+ (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups
+ nil t)
+ gnus-useful-groups)))
+ (list (car entry) (cadr entry))))
+ (setq method (gnus-copy-sequence method))
+ (let (entry)
+ (while (setq entry (memq (assq 'eval method) method))
+ (setcar entry (eval (cadar entry)))))
+ (gnus-group-make-group group method))
+
(defun gnus-group-make-help-group ()
"Create the Gnus documentation group."
(interactive)
expirable
(gnus-compress-sequence
(if expiry-wait
- ;; We set the expiry variables to the groupp
+ ;; We set the expiry variables to the group
;; parameter.
(let ((nnmail-expiry-wait-function nil)
(nnmail-expiry-wait expiry-wait))
-;;; gnus-int.el --- backend inteface functions for Gnus
+;;; gnus-int.el --- backend interface functions for Gnus
;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
\"misc-mail\")))
Normally the group names returned by this variable should be
-unprefixed -- which implictly means \"store on the archive server\".
+unprefixed -- which implicitly means \"store on the archive server\".
However, you may wish to store the message on some other server. In
that case, just return a fully prefixed name of the group --
\"nnml+private:mail.misc\", for instance.")
(defvar gnus-advanced-headers nil)
-;; To avoid having 8-bit charaters in the source file.
+;; To avoid having 8-bit characters in the source file.
(defvar gnus-advanced-not (intern (format "%c" 172)))
(defconst gnus-advanced-index
(kill-buffer "*Gnus Help Bug*")))
(defun gnus-debug ()
- "Attemps to go through the Gnus source file and report what variables have been changed.
+ "Attempts to go through the Gnus source file and report what variables have been changed.
The source file has to be in the Emacs load path."
(interactive)
(let ((files '("gnus-load.el" "gnus-sum.el" "gnus-group.el"
(widen)
(if (fboundp gnus-nocem-verifyer)
(funcall gnus-nocem-verifyer)
- ;; If we don't have MailCrypt, then we use the message anyway.
+ ;; If we don't have Mailcrypt, then we use the message anyway.
t))
(defun gnus-nocem-enter-article ()
;;; Commentary:
-;; Usage:
-;; - You must have XEmacs (19.12 or above I think) to use this.
-;; - Read the variable descriptions below.
-;;
-;; - chose a setup:
-;;
-;; 1) display the icons in its own buffer:
-;;
-;; (add-hook 'gnus-article-display-hook 'gnus-article-display-picons t)
-;; (add-hook 'gnus-summary-prepare-hook 'gnus-group-display-picons t)
-;; (setq gnus-picons-display-where 'picons)
-;;
-;; Then add the picons buffer to your display configuration:
-;; The picons buffer needs to be at least 48 pixels high,
-;; which for me is 5 lines:
-;;
-;; (gnus-add-configuration
-;; '(article (vertical 1.0
-;; (group 6)
-;; (picons 5)
-;; (summary .25 point)
-;; (article 1.0))))
-;;
-;; (gnus-add-configuration
-;; '(summary (vertical 1.0 (group 6)
-;; (picons 5)
-;; (summary 1.0 point))))
-;;
-;; 2) display the icons in the summary buffer
-;;
-;; (add-hook 'gnus-article-display-hook 'gnus-article-display-picons t)
-;; (add-hook 'gnus-summary-prepare-hook 'gnus-group-display-picons t)
-;; (setq gnus-picons-display-where 'summary)
-;;
-;; 3) display the icons in the article buffer
-;;
-;; (add-hook 'gnus-article-display-hook 'gnus-article-display-picons t)
-;; (add-hook 'gnus-article-prepare-hook 'gnus-group-display-picons t)
-;; (setq gnus-picons-display-where 'article)
-;;
-;;
-;; Warnings:
-;; - I'm not even close to being a lisp expert.
-;; - The 't' (append) flag MUST be in the add-hook line
-;;
-;; TODO:
-;; - Remove the TODO section in the headers.
-;;
-
;;; Code:
(require 'gnus-load)
Some people may want to add \"unknown\" to this list."
)
+(defvar gnus-picons-refresh-before-display nil
+ "If non-nil, display the article buffer before computing the picons.")
+
(defvar gnus-picons-x-face-file-name
(format "/tmp/picon-xface.%s.xbm" (user-login-name))
"The name of the file in which to store the converted X-face header.")
This has only an effect if `gnus-picons-display-where' hs value article.")
(defvar gnus-picons-map (make-sparse-keymap "gnus-picons-keys")
- "keymap to hide/show picon glpyhs")
+ "keymap to hide/show picon glyphs")
(define-key gnus-picons-map [(button2)] 'gnus-picons-toggle-extent)
(while (setq listitem (car plist))
(if (annotationp listitem)
(delete-annotation listitem))
- (setq plist (cdr plist))))
- )
+ (setq plist (cdr plist)))))
(defun gnus-picons-remove-all ()
"Removes all picons from the Gnus display(s)."
gnus-group-annotations nil
gnus-x-face-annotations nil)
(if (bufferp gnus-picons-buffer)
- (kill-buffer gnus-picons-buffer))
- )
+ (kill-buffer gnus-picons-buffer)))
(defun gnus-get-buffer-name (variable)
"Returns the buffer name associated with the contents of a variable."
"Display faces for an author and his/her domain in gnus-picons-display-where."
(interactive)
;; let drawing catch up
- (sit-for 0)
- (let (from at-idx databases)
+ (when gnus-picons-refresh-before-display
+ (sit-for 0))
+ (let ((first t)
+ from at-idx databases)
(when (and (featurep 'xpm)
(or (not (fboundp 'device-type)) (equal (device-type) 'x))
(setq from (mail-fetch-field "from"))
- (setq from (downcase (or (cadr (mail-extract-address-components
- from))
- "")))
+ (setq from (downcase
+ (or (cadr (mail-extract-address-components from))
+ "")))
(or (setq at-idx (string-match "@" from))
(setq at-idx (length from))))
(save-excursion
(nconc (gnus-picons-insert-face-if-exists
(car databases)
addrs
- "unknown" t)
+ "unknown" gnus-article-annotations t)
gnus-article-annotations))
(setq databases (cdr databases)))
(setq username (downcase username))
(while databases
(setq found
- (nconc (gnus-picons-insert-face-if-exists
- (car databases)
- addrs
- username)
- found))
+ (nconc (gnus-picons-insert-face-if-exists
+ (car databases) addrs username
+ gnus-picons-display-as-address )
+ found))
(setq databases (cdr databases)))
;; add their name if no face exists
(when (and gnus-picons-display-as-address (not found))
"Display icons for the group in the gnus-picons-display-where buffer."
(interactive)
;; let display catch up so far
- (sit-for 0)
+ (when gnus-picons-refresh-before-display
+ (sit-for 0))
(when (and (featurep 'xpm)
(or (not (fboundp 'device-type)) (equal (device-type) 'x)))
(save-excursion
f))
(defun gnus-picons-insert-face-if-exists (database addrs filename &optional
- nobar-p)
+ nobar-p dots)
"Inserts a face at point if I can find one"
;; '(gnus-picons-insert-face-if-exists
- ; "Database" '("edu" "indiana" "cs") "Name")
+ ;; "Database" '("edu" "indiana" "cs") "Name")
;; looks for:
;; 1. edu/indiana/cs/Name
;; 2. edu/indiana/Name
;; 1. MISC/Name
;; The special treatment of MISC doesn't conform with the conventions for
;; picon databases, but otherwise we would always see the MISC/unknown face.
- (let ((bar (and (not gnus-picons-display-as-address)
- (not nobar-p)
+ (let ((bar (and (not nobar-p)
(annotations-in-region
(point) (min (point-max) (1+ (point)))
(current-buffer))))
(path (concat (file-name-as-directory gnus-picons-database)
database "/"))
- (domainp (and gnus-picons-display-as-address nobar-p))
+ (domainp (and gnus-picons-display-as-address dots))
picons found bar-ann cur first)
(if (string-match "/MISC" database)
(setq addrs '("")))
(setq picons (nconc picons bar-ann))
(setq bar nil)))
(setq picons (nconc (when (and domainp first)
- (list (make-annotation "." (point) 'text
- nil nil nil t) picons))
+ (list (make-annotation
+ "." (point) 'text
+ nil nil nil t) picons))
(gnus-picons-try-to-find-face
found nil (if domainp cur filename))
picons)))
(defvar gnus-picons-glyph-alist nil)
(defun gnus-picons-try-to-find-face (path &optional xface-p part)
- "If PATH exists, display it as a bitmap. Returns t if succedded."
+ "If PATH exists, display it as a bitmap. Returns t if succeeded."
(let ((glyph (and (not xface-p)
(cdr (assoc path gnus-picons-glyph-alist)))))
(when (or glyph (file-exists-p path))
"b" gnus-uu-mark-buffer
"B" gnus-uu-unmark-buffer
"." gnus-pick-article
- gnus-mouse-2 gnus-pick-mouse-pick
+ gnus-down-mouse-2 gnus-pick-mouse-pick-region
+ ;;gnus-mouse-2 gnus-pick-mouse-pick
"\r" gnus-pick-start-reading))
(defun gnus-pick-make-menu-bar ()
(save-excursion
(gnus-summary-mark-as-processable 1)))
+(defun gnus-pick-mouse-pick-region (start-event)
+ "Pick articles that the mouse is dragged over.
+This must be bound to a button-down mouse event."
+ (interactive "e")
+ (mouse-minibuffer-check start-event)
+ (let* ((echo-keystrokes 0)
+ (start-posn (event-start start-event))
+ (start-point (posn-point start-posn))
+ (start-line (1+ (count-lines 1 start-point)))
+ (start-window (posn-window start-posn))
+ (start-frame (window-frame start-window))
+ (bounds (window-edges start-window))
+ (top (nth 1 bounds))
+ (bottom (if (window-minibuffer-p start-window)
+ (nth 3 bounds)
+ ;; Don't count the mode line.
+ (1- (nth 3 bounds))))
+ (click-count (1- (event-click-count start-event))))
+ (setq mouse-selection-click-count click-count)
+ (setq mouse-selection-click-count-buffer (current-buffer))
+ (mouse-set-point start-event)
+ ;; In case the down click is in the middle of some intangible text,
+ ;; use the end of that text, and put it in START-POINT.
+ (if (< (point) start-point)
+ (goto-char start-point))
+ (gnus-pick-article)
+ (setq start-point (point))
+ ;; end-of-range is used only in the single-click case.
+ ;; It is the place where the drag has reached so far
+ ;; (but not outside the window where the drag started).
+ (let (event end end-point last-end-point (end-of-range (point)))
+ (track-mouse
+ (while (progn
+ (setq event (read-event))
+ (or (mouse-movement-p event)
+ (eq (car-safe event) 'switch-frame)))
+ (if (eq (car-safe event) 'switch-frame)
+ nil
+ (setq end (event-end event)
+ end-point (posn-point end))
+ (if end-point
+ (setq last-end-point end-point))
+
+ (cond
+ ;; Are we moving within the original window?
+ ((and (eq (posn-window end) start-window)
+ (integer-or-marker-p end-point))
+ ;; Go to START-POINT first, so that when we move to END-POINT,
+ ;; if it's in the middle of intangible text,
+ ;; point jumps in the direction away from START-POINT.
+ (goto-char start-point)
+ (goto-char end-point)
+ (gnus-pick-article)
+ ;; In case the user moved his mouse really fast, pick
+ ;; articles on the line between this one and the last one.
+ (let* ((this-line (1+ (count-lines 1 end-point)))
+ (min-line (min this-line start-line))
+ (max-line (max this-line start-line)))
+ (while (< min-line max-line)
+ (goto-line min-line)
+ (gnus-pick-article)
+ (setq min-line (1+ min-line)))
+ (setq start-line this-line))
+ (if (zerop (% click-count 3))
+ (setq end-of-range (point))))
+ (t
+ (let ((mouse-row (cdr (cdr (mouse-position)))))
+ (cond
+ ((null mouse-row))
+ ((< mouse-row top)
+ (mouse-scroll-subr start-window (- mouse-row top)))
+ ((>= mouse-row bottom)
+ (mouse-scroll-subr start-window
+ (1+ (- mouse-row bottom)))))))))))
+ (if (consp event)
+ (let ((fun (key-binding (vector (car event)))))
+ ;; Run the binding of the terminating up-event, if possible.
+ ;; In the case of a multiple click, it gives the wrong results,
+ ;; because it would fail to set up a region.
+ (if nil ;; (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun))
+ ;; In this case, we can just let the up-event execute normally.
+ (let ((end (event-end event)))
+ ;; Set the position in the event before we replay it,
+ ;; because otherwise it may have a position in the wrong
+ ;; buffer.
+ (setcar (cdr end) end-of-range)
+ ;; Delete the overlay before calling the function,
+ ;; because delete-overlay increases buffer-modified-tick.
+ (setq unread-command-events
+ (cons event unread-command-events)))))))))
+
(defun gnus-pick-next-page ()
"Go to the next page. If at the end of the buffer, start reading articles."
(interactive)
;;;
(defvar gnus-binary-mode nil
- "Minor mode for provind a binary group interface in Gnus summary buffers.")
+ "Minor mode for providing a binary group interface in Gnus summary buffers.")
(defvar gnus-binary-mode-hook nil
"Hook run in summary binary mode buffers.")
"Brackets used in tree nodes.")
(defvar gnus-tree-parent-child-edges '(?- ?\\ ?|)
- "Charaters used to connect parents with children.")
+ "Characters used to connect parents with children.")
(defvar gnus-tree-mode-line-format "Gnus: %%b %S %Z"
"*The format specification for the tree mode line.")
"*Decay all \"big\" scores with this factor.")
(defvar gnus-home-score-file nil
- "Variable to control where interative score entries are to go.
+ "Variable to control where interactive score entries are to go.
It can be:
* A string
(numbers '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)))
(while numbers
(modify-syntax-entry (pop numbers) " " table))
+ (modify-syntax-entry ?' "w")
table)
"Syntax table used when doing adaptive word scoring.")
(if mimic (error "%c %c" prefix hchar) (error "")))
(when (/= (downcase hchar) hchar)
- ;; This was a majuscle, so we end reading and set the defaults.
+ ;; This was a majuscule, so we end reading and set the defaults.
(if mimic (message "%c %c" prefix hchar) (message ""))
(setq tchar (or tchar ?s)
pchar (or pchar ?t)))
(if mimic (error "%c %c" prefix hchar) (error "")))
(when (/= (downcase tchar) tchar)
- ;; It was a majuscle, so we end reading and use the default.
+ ;; It was a majuscule, so we end reading and use the default.
(if mimic (message "%c %c %c" prefix hchar tchar)
(message ""))
(setq pchar (or pchar ?p)))
"[/:" (if trans (char-to-string trans) "") "]")))
(while (re-search-forward regexp nil t)
(replace-match "." t t)))
- ;; Cludge to get rid of "nntp+" problems.
+ ;; Kludge to get rid of "nntp+" problems.
(goto-char (point-min))
(and (looking-at "nn[a-z]+\\+")
(progn
always include `gnus-thread-sort-by-number' in the list of sorting
functions -- preferably first.
-Ready-mady functions include `gnus-thread-sort-by-number',
+Ready-made functions include `gnus-thread-sort-by-number',
`gnus-thread-sort-by-author', `gnus-thread-sort-by-subject',
`gnus-thread-sort-by-date', `gnus-thread-sort-by-score' and
`gnus-thread-sort-by-total-score' (see `gnus-thread-score-function').")
(replace-match "" t t))))))
(defun gnus-simplify-subject-fuzzy (subject)
- "Siplify a subject string fuzzily."
+ "Simplify a subject string fuzzily."
(save-excursion
(gnus-set-work-buffer)
(let ((case-fold-search t))
["Edit current score file" gnus-score-edit-current-scores t]
["Edit score file" gnus-score-edit-file t]
["Trace score" gnus-score-find-trace t]
- ["Find words" gnus-score-find-favuorite-words t]
+ ["Find words" gnus-score-find-favourite-words t]
["Rescore buffer" gnus-summary-rescore t]
["Increase score..." gnus-summary-increase-score t]
["Lower score..." gnus-summary-lower-score t]))))
(gnus-score-set-default 'gnus-score-default-header 'h)
:style radio
:selected (eq gnus-score-default-header 'h )]
- ["Message-Id" (gnus-score-set-default 'gnus-score-default-header 'i)
+ ["Message-ID" (gnus-score-set-default 'gnus-score-default-header 'i)
:style radio
:selected (eq gnus-score-default-header 'i )]
["Thread" (gnus-score-set-default 'gnus-score-default-header 't)
(gnus-check-backend-function
'request-replace-article gnus-newsgroup-name)]
["Import file..." gnus-summary-import-article t]
- ["Chek if posted" gnus-summary-article-posted-p t]
+ ["Check if posted" gnus-summary-article-posted-p t]
["Edit article" gnus-summary-edit-article
(not (gnus-group-read-only-p))]
["Delete article" gnus-summary-delete-article
(defun gnus-summary-last-article-p (&optional article)
"Return whether ARTICLE is the last article in the buffer."
(if (not (setq article (or article (gnus-summary-article-number))))
- t ; All non-existant numbers are the last article. :-)
+ t ; All non-existent numbers are the last article. :-)
(not (cdr (gnus-data-find-list article)))))
(defun gnus-make-thread-indent-array ()
(when kill-buffer
(gnus-kill-or-deaden-summary kill-buffer))
(when (get-buffer-window gnus-group-buffer t)
- ;; Gotta use windows, because recenter does wierd stuff if
+ ;; Gotta use windows, because recenter does weird stuff if
;; the current buffer ain't the displayed window.
(let ((owin (selected-window)))
(select-window (get-buffer-window gnus-group-buffer t))
header references generation relations
cthread subject child end pthread relation)
;; First we create an alist of generations/relations, where
- ;; generations is how much we trust the ralation, and the relation
+ ;; generations is how much we trust the relation, and the relation
;; is parent/child.
(gnus-message 7 "Making sparse threads...")
(save-excursion
(unwind-protect
(let ((gnus-current-window-configuration
(if (and (boundp 'gnus-pick-mode)
- (symbol-value "gnus-pick-mode"))
+ (symbol-value (intern "gnus-pick-mode")))
'pick 'summary)))
(if (gnus-group-read-ephemeral-group
name `(nndoc ,name (nndoc-address ,(get-buffer dig))
((eq action 'move)
(gnus-request-move-article
article ; Article to move
- gnus-newsgroup-name ; From newsgrouo
+ gnus-newsgroup-name ; From newsgroup
(nth 1 (gnus-find-method-for-group
gnus-newsgroup-name)) ; Server
(list 'gnus-request-accept-article
(let ((forward (cdr (assq type gnus-summary-mark-positions)))
(buffer-read-only nil))
(re-search-backward "[\n\r]" (gnus-point-at-bol) 'move-to-limit)
- (and (looking-at "\r") (setq forward (1+ forward)))
+ (when (looking-at "\r")
+ (incf forward))
(when (and forward
(<= (+ forward (point)) (point-max)))
;; Go to the right position on the line.
(setcar (nthcdr 3 (cadr top)) parameters)))
(defun gnus-group-topic-parameters (group)
- "Compute the group parameters for GROUP taking into account inheretance from topics."
+ "Compute the group parameters for GROUP taking into account inheritance from topics."
(let ((params-list (list (gnus-group-get-parameter group)))
topics params param out)
(save-excursion
;; we remove them. Probably faster than doing this "properly".
(setq params-list (delq nil params-list))
;; Now we have all the parameters, so we go through them
- ;; and do inheretance in the obvious way.
+ ;; and do inheritance in the obvious way.
(while (setq params (pop params-list))
(while (setq param (pop params))
(when (atom param)
;; Return the resulting parameter list.
out)))
-;;; General utility funtions
+;;; General utility functions
(defun gnus-topic-enter-dribble ()
(gnus-dribble-enter
(gnus-current-topic)))
;; Check whether this topic already exists.
(when (gnus-topic-find-topology topic)
- (error "Topic aleady exists"))
+ (error "Topic already exists"))
(unless parent
(setq parent (caar gnus-topic-topology)))
(let ((top (cdr (gnus-topic-find-topology parent)))
(interactive "P")
(let ((gnus-uu-save-in-digest t)
(file (make-temp-name (concat gnus-uu-tmp-dir "forward")))
- buf subject from)
+ buf subject from newsgroups)
(setq gnus-uu-digest-from-subject nil)
(gnus-uu-decode-save n file)
(setq buf (switch-to-buffer (get-buffer-create " *gnus-uu-forward*")))
(delete-other-windows)
(insert-file file)
(let ((fs gnus-uu-digest-from-subject))
- (if (not fs)
- ()
+ (when fs
(setq from (caar fs)
subject (gnus-simplify-subject-fuzzy (cdar fs))
fs (cdr fs))
(while (and fs (or from subject))
- (and from
- (or (string= from (caar fs))
- (setq from nil)))
- (and subject
- (or (string= (gnus-simplify-subject-fuzzy (cdar fs))
- subject)
- (setq subject nil)))
+ (when from
+ (or (string= from (caar fs))
+ (setq from nil)))
+ (when subject
+ (or (string= (gnus-simplify-subject-fuzzy (cdar fs))
+ subject)
+ (setq subject nil)))
(setq fs (cdr fs))))
- (or subject (setq subject "Digested Articles"))
- (or from (setq from "Various")))
+ (unless subject
+ (setq subject "Digested Articles"))
+ (unless from
+ (setq from
+ (if (gnus-news-group-p gnus-newsgroup-name)
+ gnus-newsgroup-name
+ "Various"))))
(goto-char (point-min))
- (and (re-search-forward "^Subject: ")
- (progn
- (delete-region (point) (gnus-point-at-eol))
- (insert subject)))
+ (when (re-search-forward "^Subject: ")
+ (delete-region (point) (gnus-point-at-eol))
+ (insert subject))
(goto-char (point-min))
- (and (re-search-forward "^From: ")
- (progn
- (delete-region (point) (gnus-point-at-eol))
- (insert from)))
+ (when (re-search-forward "^From: ")
+ (delete-region (point) (gnus-point-at-eol))
+ (insert from))
(message-forward post)
(delete-file file)
(kill-buffer buf)
(eval '(run-hooks 'gnus-load-hook))
-(defconst gnus-version-number "0.30"
+(defconst gnus-version-number "0.31"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
;; The car of each element in the message-header alist is a symbol whose
;; print name is the name of the header, in all lower-case. The cdr of an
;; element depends on the operation. After extracting headers from a
-;; messge, it is a string, the value of the header. An extracted set of
+;; message, it is a string, the value of the header. An extracted set of
;; headers may be parsed further, which may turn it into a list, whose car
;; is the original value and whose subsequent elements depend on the
;; header. For formatting, it is evaluated to obtain the strings to be
"Return the value associated with header HEADER in HEADER-ALIST.
If the value is a string, it is the original value of the header. If the
value is a list, its first element is the original value of the header,
-with any subsequent elements bing the result of parsing the value.
+with any subsequent elements being the result of parsing the value.
If HEADER-ALIST is nil, the dynamically bound variable `headers' is used."
(cdr (assq header (or header-alist headers))))
"\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
"[>|}].*")
'font-lock-reference-face)
- '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
+ '("^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):.*"
. font-lock-string-face)))
"Additional expressions to highlight in Message mode.")
["To" message-goto-to t]
["Subject" message-goto-subject t]
["Cc" message-goto-cc t]
- ["Reply-to" message-goto-reply-to t]
+ ["Reply-To" message-goto-reply-to t]
["Summary" message-goto-summary t]
["Keywords" message-goto-keywords t]
["Newsgroups" message-goto-newsgroups t]
C-c C-w message-insert-signature (insert `message-signature-file' file).
C-c C-y message-yank-original (insert current message, if any).
C-c C-q message-fill-yanked-message (fill what was yanked).
-C-c C-r message-ceasar-buffer-body (rot13 the message body)."
+C-c C-r message-caesar-buffer-body (rot13 the message body)."
(interactive)
(kill-all-local-variables)
(make-local-variable 'message-reply-buffer)
;; reading a formatted (i. e., at least a To: or Resent-To header)
;; message from stdin.
;;
- ;; qmail also has the advantage of not having being raped by
+ ;; qmail also has the advantage of not having been raped by
;; various vendors, so we don't have to allow for that, either --
;; compare this with message-send-mail-with-sendmail and weep
;; for sendmail's lost innocence.
(or (= (preceding-char) ?\n)
(insert ?\n))
(let ((case-fold-search t))
- ;; Remove the delimeter.
+ ;; Remove the delimiter.
(goto-char (point-min))
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(y-or-n-p
"The article contains an Approved header. Really post? ")
t)))
- ;; Check the Message-Id header.
+ ;; Check the Message-ID header.
(or (message-check-element 'message-id)
(save-excursion
(let* ((case-fold-search t)
because discussions that are spread over several newsgroup tend to
be fragmented and very difficult to follow.
-Also, some source/announcment newsgroups are not indented for discussion;
+Also, some source/announcement newsgroups are not indented for discussion;
responses here are directed to other newsgroups."))
(cons 'Newsgroups followup-to)
(cons 'Newsgroups newsgroups))))))
(defun message-make-forward-subject ()
"Return a Subject header suitable for the message in the current buffer."
- (concat "[" (or (message-fetch-field (if (message-news-p) "newsgroups" "from"))
+ (concat "[" (or (message-fetch-field
+ (if (message-news-p) "newsgroups" "from"))
"(nowhere)")
"] " (or (message-fetch-field "Subject") "")))
(deffoo nndb-request-expire-articles
(articles &optional group server force)
"Expires ARTICLES from GROUP on SERVER.
-If FORCE, delete regardless of exiration date, otherwise use normal
+If FORCE, delete regardless of expiration date, otherwise use normal
expiry mechanism."
(let (msg art)
(nntp-possibly-change-group group server) ;;-
(error (message ""))))
(defun nnheader-insert (format &rest args)
- "Clear the communicaton buffer and insert FORMAT and ARGS into the buffer.
+ "Clear the communication buffer and insert FORMAT and ARGS into the buffer.
If FORMAT isn't a format string, it and all ARGS will be inserted
without formatting."
(save-excursion
\(setq nnmail-split-methods 'nnmail-split-fancy
nnmail-split-fancy
- ;; 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\")
(> (nnheader-file-size
(file-truename nnmail-crash-box)) 0))
(list nnmail-crash-box))))
- ;; Remove any directories that inadvertantly match the procmail
+ ;; Remove any directories that inadvertently match the procmail
;; suffix, which might happen if the suffix is "".
(while p
(when (file-directory-p (car p))
(setq spool (pop spools))
;; We read each spool file if either the spool is a POP-mail
;; spool, or the file exists. We can't check for the
- ;; existance of POPped mail.
+ ;; existence of POPped mail.
(when (or (string-match "^po:" spool)
(and (file-exists-p spool)
(> (nnheader-file-size (file-truename spool)) 0)))
(save-restriction
(message-narrow-to-head)
(let ((case-fold-search t))
- (unless (re-search-forward "^Message-Id:" nil t)
+ (unless (re-search-forward "^Message-ID:" nil t)
(insert "Message-ID: " (nnmail-message-id) "\n")))))
(defun nnmail-write-region (start end filename &optional append visit lockname)
path gpath group-num)
(if (stringp id)
(when (and (setq group-num (nnml-find-group-number id))
- (setq file (cdr
- (assq (cdr group-num)
- (nnheader-article-to-file-alist
- (setq gpath
- (nnmail-group-pathname
- (car group-num)
- nnml-directory)))))))
+ (cdr
+ (assq (cdr group-num)
+ (nnheader-article-to-file-alist
+ (setq gpath
+ (nnmail-group-pathname
+ (car group-num)
+ nnml-directory))))))
(setq path (concat gpath (int-to-string (cdr group-num)))))
(setq path (nnml-article-to-file id)))
(cond
(progn
(nnmail-write-region
(point-min) (point-max)
- (setq file (concat nnml-current-directory
- (int-to-string article)))
+ (concat nnml-current-directory
+ (int-to-string article))
nil (if (nnheader-be-verbose 5) nil 'nomesg))
t)
(error nil))
(defun nnsoup-index-buffer (prefix &optional message)
(let* ((file (concat prefix (if message ".MSG" ".IDX")))
(buffer-name (concat " *nnsoup " file "*")))
- (or (get-buffer buffer-name) ; File aready loaded.
+ (or (get-buffer buffer-name) ; File already loaded.
(when (file-exists-p (concat nnsoup-directory file))
(save-excursion ; Load the file.
(set-buffer (get-buffer-create buffer-name))
(copy-to-buffer nntp-server-buffer (point-min) (point-max))
'group)
;; We have read active entries, so we just delete the
- ;; superfluos gunk.
+ ;; superfluous gunk.
(goto-char (point-min))
(while (re-search-forward "^[.2-5]" nil t)
(delete-region (match-beginning 0)
(setq nntp-server-type (buffer-string))
(let ((alist nntp-server-action-alist)
entry)
- ;; Run server-specific commmands.
+ ;; Run server-specific commands.
(while alist
(setq entry (pop alist))
(when (string-match (car entry) nntp-server-type)
(defvar smiley-data-directory (message-xmas-find-glyph-directory "smilies")
"Location of the smiley faces files.")
-;; Notice the subtle differences in the regular expessions in the two alists below
+;; Notice the subtle differences in the regular expressions in the two alists below
(defvar smiley-deformed-regexp-alist
'(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm")
(defvar smiley-regexp-alist smiley-deformed-regexp-alist
"A list of regexps to map smilies to real images.
Defaults to the content of smiley-deformed-regexp-alist.
-An alternative smiley-nose-regexp-alist that
-matches less aggresively is available.
+An alternative smiley-nosey-regexp-alist that
+matches less aggressively is available.
If this is a symbol, take its value.")
(defvar smiley-flesh-color "yellow"
@item
Q1.10 Mailcrypt 3.4 doesn't work
-This problem is verified to still exist in Gnus 5.0.9 and MailCrypt 3.4.
+This problem is verified to still exist in Gnus 5.0.9 and Mailcrypt 3.4.
The answer comes from Peter Arius
<arius@@immd2.informatik.uni-erlangen.de>.
@code{gnus-no-server} command to start Gnus. That might come in handy
if you're in a hurry as well. This command will not attempt to contact
your primary server---instead, it will just activate all groups on level
-1 and 2. (You should preferrably keep no native groups on those two
+1 and 2. (You should preferably keep no native groups on those two
levels.)
@item M-x gnus-group-clear-data-on-native-groups
@kindex M-x gnus-group-clear-data-on-native-groups
@findex gnus-group-clear-data-on-native-groups
-If you have switced from one @sc{nntp} server to another, all your marks
+If you have switched from one @sc{nntp} server to another, all your marks
and read ranges have become worthless. You can use this command to
clear out all data that you have on your native groups. Use with
caution.
@subsection Topic Sorting
@cindex topic sorting
-You can sort the groups in each topic individially with the following
+You can sort the groups in each topic individually with the following
commands:
Group parameters (of course) override topic parameters, and topic
parameters in sub-topics override topic parameters in super-topics. You
-know. Normal inheretance rules. (@dfn{Rules} is here a noun, not a
+know. Normal inheritance rules. (@dfn{Rules} is here a noun, not a
verb, although you may feel free to disagree with me here.)
@example
@item W W P
@kindex W W P (Summary)
@findex gnus-article-hide-pem
-Hide @sc{pem} (privacy enhavnced hessages) gruft
+Hide @sc{pem} (privacy enhanced messages) gruft
(@code{gnus-article-hide-pem}).
@item W W c
@item gnus-article-button-face
@vindex gnus-article-button-face
-Face used on bottons.
+Face used on buttons.
@item gnus-article-mouse-face
@vindex gnus-article-mouse-face
@section Duplicate Suppression
By default, Gnus tries to make sure that you don't have to read the same
-article more than once by utilizing the crossposing mechanism
+article more than once by utilizing the crossposting mechanism
(@pxref{Crosspost Handling}). However, that simple and efficient
approach may not work satisfactorily for some users for various
reasons.
otherwise marked as read, and then, as if by magic, mark them as read
all subsequent times you see them---in @emph{all} groups. Using this
mechanism is quite likely to be somewhat inefficient, but not overly
-so. It's certainly preferrable to reading the same articles more than
+so. It's certainly preferable to reading the same articles more than
once.
Duplicate suppression is not a very subtle instrument. It's more like a
We see that all text before a 70-width line of dashes is ignored; all
text after a line that starts with that @samp{^End of} is also ignored;
each article begins with a 30-width line of dashes; the line separating
-the head from the body may contain a single spcae; and that the body is
+the head from the body may contain a single space; and that the body is
run through @code{nndoc-unquote-dashes} before being delivered.
To hook your own document definition into @code{nndoc}, use the
@item V F
@kindex V F (Summary)
@findex gnus-score-flush-cache
-Flush the score cahe (@code{gnus-score-flush-cache}). This is useful
+Flush the score cache (@code{gnus-score-flush-cache}). This is useful
after editing score files.
@item V C
@vindex gnus-adaptive-word-syntax-table
When the scoring is done, @code{gnus-adaptive-word-syntax-table} is the
syntax table in effect. It is similar to the standard syntax table, but
-it considers numbers to be non-word-consituant characters.
+it considers numbers to be non-word-constituent characters.
After using this scheme for a while, it might be nice to write a
@code{gnus-psychoanalyze-user} command to go through the rules and see
@code{gnus-home-adapt-file}, you can also use group parameters
(@pxref{Group Parameters}) and topic parameters (@pxref{Topic
Parameters}) to achieve much the same. Group and topic parameters take
-presedence over this variable.
+precedence over this variable.
@node Followups To Yourself
@item grouplens-pseudonym
@vindex grouplens-pseudonym
-This variable should be set to the pseudonum you got when registering
+This variable should be set to the pseudonym you got when registering
with the Better Bit Bureau.
@item grouplens-newsgroups
@end table
There is an @dfn{indirection operator} that will make its arguments
-apply to the ancenstors of the current article being scored. For
+apply to the ancestors of the current article being scored. For
instance, @code{1-} will make score rules apply to the parent of the
current article. @code{2-} will make score fules apply to the
grandparent of the current article. Alternatively, you can write
Scores with magnitudes between 3 and 60 will be shrunk by 3.
@item
-Scores with magnutudes greater than 60 will be shrunk by 5% of the
+Scores with magnitudes greater than 60 will be shrunk by 5% of the
score.
@end enumerate
last operation, padding.
If you use lots of these advanced thingies, you'll find that Gnus gets
-quite slow. This can be helped enourmously by running @kbd{M-x
-gnus-compile} when you are setisfied with the look of your lines.
+quite slow. This can be helped enormously by running @kbd{M-x
+gnus-compile} when you are satisfied with the look of your lines.
@xref{Compilation}.
Note that the @code{message} key is used for both
@code{gnus-group-mail} and @code{gnus-summary-mail-other-window}. If
-it is desireable to distinguish between the two, something like this
+it is desirable to distinguish between the two, something like this
might be used:
@lisp
To use moderation mode in these two groups, say:
@lisp
-(setq gnus-moderatated-groups
+(setq gnus-moderated-list
"^nnml:rec.zoofle$\\|^rec.zoofle$")
@end lisp
@item gnus-xmas-modeline-glyph
@vindex gnus-xmas-modeline-glyph
-A glyph dislayed in all Gnus mode lines. It is a tiny gnu head by
+A glyph displayed in all Gnus mode lines. It is a tiny gnu head by
default.
@end table
@item article
@cindex article
-A nessage that has been posted as news.
+A message that has been posted as news.
@item mail message
@cindex mail message
The question is simple: If you have a large amount of objects that are
identified by numbers (say, articles, to take a @emph{wild} example)
-that you want to callify as being ``included'', a normal sequence isn't
+that you want to qualify as being ``included'', a normal sequence isn't
very useful. (A 200,000 length sequence is a bit long-winded.)
The solution is as simple as the question: You just collapse the
Followup-To headers exist.
@item valid-newsgroups
Check whether the @code{Newsgroups} and @code{Followup-To} headers
-are valid syntactially.
+are valid syntactically.
@end table
All these conditions are checked by default.
projects / gnus / commitdiff