*** pub/sgnus/lisp/gnus-picon.el Tue Jun 18 17:58:31 1996 --- sgnus/lisp/gnus-picon.el Wed Jun 19 16:53:11 1996 *************** *** 110,118 **** "Command to convert the x-face header into a xbm file." ) ! (defvar gnus-picons-get-maximum-picons t ! "*If non-nil, display all picons that apply to the article. ! If this is nil, use just the \"best\" (or most relevant) picon.") (defvar gnus-group-annotations nil) (defvar gnus-article-annotations nil) --- 110,126 ---- "Command to convert the x-face header into a xbm file." ) ! (defvar gnus-picons-file-suffixes ! (when (featurep 'x) ! (let ((types (list "xbm"))) ! (when (featurep 'gif) ! (push "gif" types)) ! (when (featurep 'xpm) ! (push "xpm" types)) ! types)) ! "List of suffixes on picon file names to try.") ! ! ;;; Internal variables. (defvar gnus-group-annotations nil) (defvar gnus-article-annotations nil) *************** *** 180,195 **** gnus-picons-display-where))) (gnus-add-current-to-buffer-list) (goto-char (point-min)) ! (let ((iconpoint (point)) ! buffer-read-only) (unless (looking-at "$") ! (insert "\n") ! (forward-line -1)) ;; append the annotation to gnus-article-annotations for deletion. (setq gnus-x-face-annotations (append ! (gnus-picons-try-to-find-face ! gnus-picons-x-face-file-name iconpoint) gnus-x-face-annotations))) ;; delete the tmp file (delete-file gnus-picons-x-face-file-name))) --- 188,200 ---- gnus-picons-display-where))) (gnus-add-current-to-buffer-list) (goto-char (point-min)) ! (let (buffer-read-only) (unless (looking-at "$") ! (open-line 1)) ;; append the annotation to gnus-article-annotations for deletion. (setq gnus-x-face-annotations (append ! (gnus-picons-try-to-find-face gnus-picons-x-face-file-name) gnus-x-face-annotations))) ;; delete the tmp file (delete-file gnus-picons-x-face-file-name))) *************** *** 236,243 **** (concat (file-name-as-directory gnus-picons-database) pathpart) ! (concat hostpath username) ! (point)) gnus-article-annotations))) gnus-picons-user-directories) (mapcar (lambda (pathpart) --- 241,247 ---- (concat (file-name-as-directory gnus-picons-database) pathpart) ! (concat hostpath username)) gnus-article-annotations))) gnus-picons-user-directories) (mapcar (lambda (pathpart) *************** *** 246,257 **** (gnus-picons-insert-face-if-exists (concat (file-name-as-directory gnus-picons-database) pathpart) ! (concat hostpath "unknown") ! (point)) gnus-article-annotations))) gnus-picons-domain-directories) ! (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all) ! )))) (defun gnus-group-display-picons () "Display icons for the group in the gnus-picons-display-where buffer." --- 250,259 ---- (gnus-picons-insert-face-if-exists (concat (file-name-as-directory gnus-picons-database) pathpart) ! (concat hostpath)) gnus-article-annotations))) gnus-picons-domain-directories) ! (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all))))) (defun gnus-group-display-picons () "Display icons for the group in the gnus-picons-display-where buffer." *************** *** 284,319 **** gnus-picons-news-directory) (concat (replace-in-string gnus-newsgroup-name "\\." "/") "/unknown") ! (point) t)) (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all)))) ! (defun gnus-picons-insert-face-if-exists (path filename ipoint &optional rev) "Inserts a face at point if I can find one" ! (let ((file (concat path "/" filename)) ! (xpm (if (featurep 'xpm) "xpm" "xbm")) picons found) ! (while (and (or (not found) ! gnus-picons-get-maximum-picons) ! (>= (length file) (length path))) ! (or (file-exists-p (setq found (concat file "/face." xpm))) ! (file-exists-p (setq found (concat file "/unknown/face." xpm))) ! (setq found nil)) ! (when found ! (setq picons (nconc (gnus-picons-try-to-find-face found ipoint) ! picons))) ! (setq file (directory-file-name (file-name-directory file)))) (nreverse picons))) ! (defun gnus-picons-try-to-find-face (path ipoint) "If PATH exists, display it as a bitmap. Returns t if succedded." ! (when (file-exists-p path) ! (let ((gl (make-glyph path))) ! (set-glyph-face gl 'default) ! (list (make-annotation gl ipoint 'text))))) (defun gnus-picons-reverse-domain-path (str) "a/b/c/d -> d/c/b/a" (mapconcat 'identity (nreverse (message-tokenize-header str "/")) "/")) (provide 'gnus-picon) --- 286,341 ---- gnus-picons-news-directory) (concat (replace-in-string gnus-newsgroup-name "\\." "/") "/unknown") ! t)) (add-hook 'gnus-summary-exit-hook 'gnus-picons-remove-all)))) ! (defsubst gnus-picons-try-suffixes (file) ! (let ((suffixes gnus-picons-file-suffixes) ! f) ! (while (and suffixes ! (not (file-exists-p (setq f (concat file (pop suffixes)))))) ! (setq f nil)) ! f)) ! ! (defun gnus-picons-insert-face-if-exists (path filename &optional rev) "Inserts a face at point if I can find one" ! (let ((files (message-tokenize-header filename "/")) picons found) ! (while (and files ! (file-exists-p path)) ! (setq path (concat path "/" (pop files))) ! (when (setq found ! (or ! (gnus-picons-try-suffixes (concat path "/face.")) ! (gnus-picons-try-suffixes (concat path "/unknown/face.")))) ! (setq picons (nconc (gnus-picons-try-to-find-face found) ! picons)))) (nreverse picons))) + + (defvar gnus-picons-glyph-alist nil) ! (defun gnus-picons-try-to-find-face (path) "If PATH exists, display it as a bitmap. Returns t if succedded." ! (let ((glyph (cdr (assoc path gnus-picons-glyph-alist)))) ! (when (or glyph (file-exists-p path)) ! (unless glyph ! (push (cons path (setq glyph (make-glyph path))) ! gnus-picons-glyph-alist) ! (set-glyph-face glyph 'default)) ! (nconc ! (list (make-annotation glyph (point) 'text)) ! (when (eq major-mode 'gnus-article-mode) ! (list (make-annotation " " (point) 'text))))))) (defun gnus-picons-reverse-domain-path (str) "a/b/c/d -> d/c/b/a" (mapconcat 'identity (nreverse (message-tokenize-header str "/")) "/")) + + (gnus-add-shutdown 'gnus-picons-close 'gnus) + + (defun gnus-picons-close () + "Shut down the picons." + (setq gnus-picons-glyph-alist nil)) (provide 'gnus-picon) *** pub/sgnus/lisp/gnus-salt.el Tue Jun 18 17:58:31 1996 --- sgnus/lisp/gnus-salt.el Wed Jun 19 15:49:00 1996 *************** *** 247,253 **** gnus-tree-mode-map "\r" gnus-tree-select-article gnus-mouse-2 gnus-tree-pick-article ! "\C-?" gnus-tree-read-summary-keys) (substitute-key-definition 'undefined 'gnus-tree-read-summary-keys gnus-tree-mode-map)) --- 247,255 ---- gnus-tree-mode-map "\r" gnus-tree-select-article gnus-mouse-2 gnus-tree-pick-article ! "\C-?" gnus-tree-read-summary-keys ! ! "\C-c\C-i" gnus-info-find-node) (substitute-key-definition 'undefined 'gnus-tree-read-summary-keys gnus-tree-mode-map)) *** pub/sgnus/lisp/gnus-score.el Tue Jun 18 17:58:32 1996 --- sgnus/lisp/gnus-score.el Wed Jun 19 15:36:10 1996 *************** *** 843,849 **** gnus-kill-files-directory)) (expand-file-name file)) file) ! (concat gnus-kill-files-directory file)))) (cached (assoc file gnus-score-cache)) (global (member file gnus-internal-global-score-files)) lists alist) --- 843,850 ---- gnus-kill-files-directory)) (expand-file-name file)) file) ! (concat (file-name-as-directory gnus-kill-files-directory) ! file)))) (cached (assoc file gnus-score-cache)) (global (member file gnus-internal-global-score-files)) lists alist) *** pub/sgnus/lisp/gnus-srvr.el Tue Jun 18 17:58:32 1996 --- sgnus/lisp/gnus-srvr.el Wed Jun 19 15:49:01 1996 *************** *** 116,122 **** "O" gnus-server-open-server "C" gnus-server-close-server "D" gnus-server-deny-server ! "R" gnus-server-remove-denials)) (defun gnus-server-mode () "Major mode for listing and editing servers. --- 116,124 ---- "O" gnus-server-open-server "C" gnus-server-close-server "D" gnus-server-deny-server ! "R" gnus-server-remove-denials ! ! "\C-c\C-i" gnus-info-find-node)) (defun gnus-server-mode () "Major mode for listing and editing servers. *************** *** 496,501 **** --- 498,504 ---- "Q" gnus-browse-exit "\C-c\C-c" gnus-browse-exit "?" gnus-browse-describe-briefly + "\C-c\C-i" gnus-info-find-node)) (defun gnus-browse-make-menu-bar () *** pub/sgnus/lisp/gnus-xmas.el Tue Jun 18 17:58:35 1996 --- sgnus/lisp/gnus-xmas.el Wed Jun 19 14:48:56 1996 *************** *** 146,154 **** ;; Recenter only when requested. Suggested by popovich@park.cs.columbia.edu. (when gnus-auto-center-summary (let* ((height (if (fboundp 'window-displayed-height) ! (progn ! (sit-for 0) ! (window-displayed-height)) (- (window-height) 2))) (top (cond ((< height 4) 0) ((< height 7) 1) --- 146,152 ---- ;; Recenter only when requested. Suggested by popovich@park.cs.columbia.edu. (when gnus-auto-center-summary (let* ((height (if (fboundp 'window-displayed-height) ! (window-displayed-height) (- (window-height) 2))) (top (cond ((< height 4) 0) ((< height 7) 1) *************** *** 524,530 **** (fset 'gnus-group-remove-excess-properties 'gnus-xmas-group-remove-excess-properties) (fset 'gnus-topic-remove-excess-properties ! 'gnus-xmas-topic-remove-excess-properties))) ;;; XEmacs logo and toolbar. --- 522,530 ---- (fset 'gnus-group-remove-excess-properties 'gnus-xmas-group-remove-excess-properties) (fset 'gnus-topic-remove-excess-properties ! 'gnus-xmas-topic-remove-excess-properties) ! (fset 'gnus-mode-line-buffer-identification 'identity) ! )) ;;; XEmacs logo and toolbar. *** pub/sgnus/lisp/gnus.el Tue Jun 18 17:58:36 1996 --- sgnus/lisp/gnus.el Wed Jun 19 16:29:18 1996 *************** *** 1730,1736 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.20" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 1730,1736 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.21" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *************** *** 1739,1745 **** (defvar gnus-info-nodes '((gnus-group-mode "(gnus)The Group Buffer") (gnus-summary-mode "(gnus)The Summary Buffer") ! (gnus-article-mode "(gnus)The Article Buffer")) "Alist of major modes and related Info nodes.") (defvar gnus-group-buffer "*Group*") --- 1739,1749 ---- (defvar gnus-info-nodes '((gnus-group-mode "(gnus)The Group Buffer") (gnus-summary-mode "(gnus)The Summary Buffer") ! (gnus-article-mode "(gnus)The Article Buffer") ! (gnus-server-mode "(gnus)The Server Buffer") ! (gnus-browse-mode "(gnus)Browse Foreign Server") ! (gnus-tree-mode "(gnus)Tree Display") ! ) "Alist of major modes and related Info nodes.") (defvar gnus-group-buffer "*Group*") *************** *** 3261,3273 **** (or (not (numberp (nth i elem))) (zerop (nth i elem)) (progn ! (setq perc (/ (float (nth 0 elem)) total)) (setq out (cons (if (eq pbuf (nth i types)) ! (vector (nth i types) perc 'point) ! (vector (nth i types) perc)) out)))) (setq i (1+ i))) ! (list (nreverse out))))) ;;;###autoload (defun gnus-add-configuration (conf) --- 3265,3279 ---- (or (not (numberp (nth i elem))) (zerop (nth i elem)) (progn ! (setq perc (if (= i 2) ! 1.0 ! (/ (float (nth 0 elem)) total))) (setq out (cons (if (eq pbuf (nth i types)) ! (list (nth i types) perc 'point) ! (list (nth i types) perc)) out)))) (setq i (1+ i))) ! `(vertical 1.0 ,@(nreverse out))))) ;;;###autoload (defun gnus-add-configuration (conf) *************** *** 5098,5113 **** (max-len 60) gnus-tmp-header ;Dummy binding for user-defined formats ;; Get the resulting string. (mode-string (eval gformat))) ;; Say whether the dribble buffer has been modified. (setq mode-line-modified ! (if (and gnus-dribble-buffer ! (buffer-name gnus-dribble-buffer) ! (buffer-modified-p gnus-dribble-buffer) ! (save-excursion ! (set-buffer gnus-dribble-buffer) ! (not (zerop (buffer-size))))) ! "---*- " "----- ")) ;; If the line is too long, we chop it off. (when (> (length mode-string) max-len) (setq mode-string (substring mode-string 0 (- max-len 4)))) --- 5104,5120 ---- (max-len 60) gnus-tmp-header ;Dummy binding for user-defined formats ;; Get the resulting string. + (modified + (and gnus-dribble-buffer + (buffer-name gnus-dribble-buffer) + (buffer-modified-p gnus-dribble-buffer) + (save-excursion + (set-buffer gnus-dribble-buffer) + (not (zerop (buffer-size)))))) (mode-string (eval gformat))) ;; Say whether the dribble buffer has been modified. (setq mode-line-modified ! (if modified "---*- " "----- ")) ;; If the line is too long, we chop it off. (when (> (length mode-string) max-len) (setq mode-string (substring mode-string 0 (- max-len 4)))) *************** *** 5115,5121 **** (setq mode-line-buffer-identification (gnus-mode-line-buffer-identification (list mode-string))) ! (set-buffer-modified-p t)))))) (defun gnus-group-group-name () "Get the name of the newsgroup on the current line." --- 5122,5128 ---- (setq mode-line-buffer-identification (gnus-mode-line-buffer-identification (list mode-string))) ! (set-buffer-modified-p modified)))))) (defun gnus-group-group-name () "Get the name of the newsgroup on the current line." *************** *** 6158,6164 **** (gnus-uncompress-sequence (cdr expirable)) group)) ;; Just expire using the normal expiry values. (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) group))))) (gnus-message 6 "Expiring articles in %s...done" group))) (gnus-group-position-point)))) --- 6165,6172 ---- (gnus-uncompress-sequence (cdr expirable)) group)) ;; Just expire using the normal expiry values. (gnus-request-expire-articles ! (gnus-uncompress-sequence (cdr expirable)) group)))) ! (gnus-close-group group)) (gnus-message 6 "Expiring articles in %s...done" group))) (gnus-group-position-point)))) *************** *** 11652,11658 **** gnus-newsgroup-name))))) (method (gnus-completing-read ! methname "What backend do you want to use when? " methods nil t nil 'gnus-method-history)) ms) (cond --- 11660,11666 ---- gnus-newsgroup-name))))) (method (gnus-completing-read ! methname "What backend do you want to use when respooling?" methods nil t nil 'gnus-method-history)) ms) (cond *************** *** 13141,13147 **** (gnus-activate-group to-newsgroup) (if (gnus-y-or-n-p (format "No such group: %s. Create it? " to-newsgroup)) ! (or (gnus-request-create-group to-newsgroup) (error "Couldn't create group %s" to-newsgroup))) (error "No such group: %s" to-newsgroup))) to-newsgroup)) --- 13149,13156 ---- (gnus-activate-group to-newsgroup) (if (gnus-y-or-n-p (format "No such group: %s. Create it? " to-newsgroup)) ! (or (gnus-request-create-group ! to-newsgroup (gnus-group-name-to-method to-newsgroup)) (error "Couldn't create group %s" to-newsgroup))) (error "No such group: %s" to-newsgroup))) to-newsgroup)) *************** *** 13463,13468 **** --- 13472,13479 ---- "\r" gnus-article-press-button "\t" gnus-article-next-button "\M-\t" gnus-article-prev-button + "<" beginning-of-bnuffer + ">" end-of-bnuffer "\C-c\C-b" gnus-bug) (substitute-key-definition *************** *** 15346,15351 **** --- 15357,15372 ---- (cdr (assoc (car method) gnus-server-alist)))))) (setcar (cdr entry) (concat (nth 1 entry) "+" group)) (nconc entry (cdr method)))) + + (defun gnus-group-name-to-method (group) + "Return a select method suitable for GROUP." + (if (string-match ":" group) + (let ((server (substring group 0 (match-beginning 0)))) + (if (string-match "\\+" server) + (list (intern (substring server 0 (match-beginning 0))) + (substring server (match-end 0))) + (list (intern server) ""))) + gnus-select-method)) (defun gnus-find-method-for-group (group &optional info) "Find the select method that GROUP uses." *** pub/sgnus/lisp/nntp.el Tue Jun 18 17:58:39 1996 --- sgnus/lisp/nntp.el Wed Jun 19 13:04:56 1996 *************** *** 491,497 **** ;; We find out what the article number was. (nntp-find-group-and-number))) (nntp-decode-text) ! (nnheader-fold-continuation-lines))) (deffoo nntp-request-stat (id &optional group server) "Request STAT of article ID (Message-ID or number)." --- 491,499 ---- ;; We find out what the article number was. (nntp-find-group-and-number))) (nntp-decode-text) ! (save-excursion ! (set-buffer nntp-server-buffer) ! (nnheader-fold-continuation-lines)))) (deffoo nntp-request-stat (id &optional group server) "Request STAT of article ID (Message-ID or number)." *** pub/sgnus/lisp/ChangeLog Tue Jun 18 17:58:48 1996 --- sgnus/lisp/ChangeLog Wed Jun 19 16:58:23 1996 *************** *** 1,3 **** --- 1,52 ---- + Wed Jun 19 16:58:21 1996 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.2.21 is released. + + Wed Jun 19 15:39:09 1996 Lars Magne Ingebrigtsen + + * gnus-picon.el (gnus-picons-glyph-alist): New variable. + (gnus-picons-try-to-find-face): Use it. + (gnus-picons-close): New function. + + * gnus.el (gnus-group-set-mode-line): After saving the .newsrc, + mark the group buffer as unmodified. + (gnus-group-name-to-method): New function. + (gnus-read-move-group-name): Use it. + (gnus-info-nodes): Add more modes. + (gnus-windows-old-to-new): Would produce invalid configurations. + + Wed Jun 19 15:36:35 1996 Philippe Troin + + * gnus-score.el (gnus-score-load-file): Would bug out on + directories not ending with a /. + + Wed Jun 19 14:46:42 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-article-mode-map): Bind `<' and `>'. + (gnus-group-expire-articles): Close group after expiring. + + * gnus-xmas.el (gnus-xmas-redefine): Don't do the mode-line things + for XEmacs 19.13. + + Wed Jun 19 14:09:21 1996 Chuck Thompson + + * gnus-xmas.el (gnus-xmas-summary-recenter): Removed the + `sit-for'. + + Wed Jun 19 13:15:05 1996 Lars Magne Ingebrigtsen + + * gnus-picon.el (gnus-picons-get-maximum-picons): Removed. + (gnus-picons-file-suffixes): New variable. + (gnus-picons-try-suffixes): New substs. + (gnus-article-display-picons): Would sometimes insert double + picons. + (gnus-picons-try-to-find-face): Insert some air. + (gnus-picons-insert-face-if-exists): Don't stat so many files. + + Tue Jun 18 18:40:36 1996 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.2.20 is released. + Tue Jun 18 12:24:34 1996 Lars Magne Ingebrigtsen * gnus-xmas.el (gnus-xmas-group-startup-message): Fix mode line. *************** *** 4109,4112 **** (gnus-group-line-format-alist): Let N have its old definition. (gnus-group-catchup-group-hook): New variable. (gnus-group-catchup): Use it. ! (gnus-group-remove-mark): Gi\ No newline at end of file --- 4158,4376 ---- (gnus-group-line-format-alist): Let N have its old definition. (gnus-group-catchup-group-hook): New variable. (gnus-group-catchup): Use it. ! (gnus-group-remove-mark): Give a useful return value. ! (gnus-group-kill-group): Would bug out when killing lots of dead ! groups. ! ! Thu Jan 25 09:32:19 1996 Jack Vinson ! ! * gnus.el (gnus-group-insert-group-line) : Changed "header" to ! "gnus-tmp-header" for parameter that gets passed to user ! functions. Set to the group name, but may not necessarily want ! this. ! (gnus-group-set-mode-line) : ditto, gnus-tmp-header set to nil. ! (gnus-set-mode-line) : ditto, gnus-tmp-header set to nil. ! ! Fri Jan 26 07:47:59 1996 Lars Magne Ingebrigtsen ! ! * gnus.el (gnus): Goto the first unread group. ! ! * gnus.el: 0.32 is released. ! ! Thu Jan 25 18:27:03 1996 Lars Ingebrigtsen ! ! * gnus.el: Autoload `gnus-group-highlight-line'. ! ! * gnus-vis.el (gnus-article-highlight-headers): Wrap the regexp in ! parentheses. ! ! * nnmbox.el (nnmbox-request-group): Don't bug out on non-existant ! groups. ! * nnbabyl.el (nnbabyl-request-group): Ditto. ! (nnbabyl-possibly-change-newsgroup): Return t. ! ! * gnus.el (gnus-group-insert-group-line): Define gnus-tmp-header. ! ! * gnus-msg.el (gnus-mail-parse-comma-list): New function. ! (gnus-mail-reply): Use it. ! (gnus-mail-reply): Merge follow-to headers. ! ! * gnus-score.el (gnus-summary-score-map): New implementation. ! ! * gnus.el (gnus-summary-exit): Remove articles before updating. ! (gnus-summary-next-article): Accept a param to force slightly. ! ! Thu Jan 25 08:41:44 1996 Lars Magne Ingebrigtsen ! ! * nnml.el (nnml-deletable-article-p): Always responed with nil. ! ! Thu Jan 25 08:45:52 1996 Lars Magne Ingebrigtsen ! ! * gnus.el: 0.31 is released. ! ! * nnmail.el (nnmail-insert-lines): Would return negative lines ! numbers. ! ! * gnus-xmas.el (gnus-xmas-extent-start-open): New function. ! ! * gnus-topic.el (gnus-topic-insert-topic-line): Remove excess ! properties. ! ! * gnus-xmas.el (gnus-xmas-topic-remove-excess-properties): New ! function. ! ! Thu Jan 25 07:34:05 1996 Lars Magne Ingebrigtsen ! ! * gnus-ems.el (gnus-extent-detached-p): New alias. ! ! * gnus-xmas.el (gnus-xmas-find-glyph-directory): Changed from ! "etc" to "etc/gnus". ! ! Tue Jan 23 13:40:35 1996 Lars Ingebrigtsen ! ! * gnus-score.el (gnus-score-make-menu-bar): New function. ! (gnus-score-menu-hook): New variable. ! ! * gnus-vis.el (gnus-article-next-button): Move point. ! ! * nndoc.el (nndoc-type-alist): Recognize ends of digests. ! (nndoc-retrieve-headers): Don't bug out on non-existant articles. ! ! * gnus-msg.el (gnus-mail-buffer): Renamed. ! ! * gnus-cache.el (gnus-cache-possibly-remove-articles): Check some ! more. ! ! * nnmail.el (nnmail-insert-lines): Off by 1. ! ! * nnml.el (nnml-deletable-article-p): Check for file writability. ! * nnmh.el (nnml-deletable-article-p): Ditto. ! ! * gnus-msg.el (gnus-associate-buffer-with-draft): Allow ! disabling. ! (gnus-use-draft): New variable. ! ! * gnus.el (gnus-summary-move-article): Use `move' action by ! default. ! ! * nnmail.el (nnmail-get-split-group): Be more restrictive in ! selecting procmail spools. ! (nnmail-get-spool-files): Don't return the spool file when doing a ! single procmail file. ! ! * gnus.el (gnus-summary-move-article): Allow moving to the same ! group. ! ! * gnus-score.el (gnus-score-pretty-print): New command and ! keystroke. ! (gnus-summary-increase-score): Would always bug out. ! (gnus-score-edit-done): Change windows before loading score file. ! ! * gnus.el (gnus-summary-reparent-thread): Rethread after ! reparenting. ! ! * gnus-xmas.el (gnus-xmas-make-overlay): Don't make extents ! undetachable. ! ! * nndoc.el (nndoc-post-type): New variable. ! ! Tue Jan 23 13:39:11 1996 Eberhard Mattes ! ! * nndoc.el (nndoc-request-type): New function. ! ! Tue Jan 23 00:13:10 1996 Lars Ingebrigtsen ! ! * gnus.el (gnus-group-group-indentation): New function. ! (gnus-group-update-group-line): Use it. ! (gnus-group-update-group): Indent. ! ! * gnus-topic.el (gnus-topic-hide-subtopics): Removed variable. ! (gnus-topic-prepare-topic): Indent group lines. ! (gnus-topic-yank-group): Indent groups. ! ! * gnus.el (gnus-group-update-hook): New variable. ! (gnus-group-insert-group-line): Use it. ! ! * gnus-vis.el (gnus-group-highlight-line): New function. ! ! * gnus.el (gnus-group-entry): New macro. ! ! * gnus-vis.el (gnus-group-highlight): New variable. ! ! * gnus-topic.el (gnus-topic-insert-topic-line): Would show "..." ! too often. ! (gnus-topic-indent): Don't move point. ! (gnus-topic-unindent): Ditto. ! (gnus-topic-prepare-topic): Display unread articles in sub-topics. ! ! * nnsoup.el (nnsoup-next-prefix): New function. ! (nnsoup-read-areas): Use it. ! ! * gnus-soup.el (gnus-soup-set-area-prefix): New macro. ! ! * nnsoup.el (nnsoup-tmp-directory): New directory. ! (nnsoup-write-active-file): Save it. ! (nnsoup-unpack-packets): Use it. ! ! * gnus-msg.el (gnus-dissociate-buffer-from-draft): New command and ! keystroke. ! ! * gnus.el (gnus-group-list-groups): Goto last group if at eob. ! ! * gnus-topic.el (gnus-topic-mode): Use it. ! (gnus-topic-goto-next-group): New function. ! ! * gnus.el (gnus-group-list-groups): Allow positioning point in ! topic buffers. ! (gnus-group-goto-next-group-function): New internal variable. ! ! * nnsoup.el (nnsoup-read-active-file): Give a proper return ! value. ! ! * gnus.el (gnus-start-news-server): Give a better error message. ! ! Mon Jan 21 23:34:55 1996 Morioka Tomohiko ! ! * gnus-mh.el (gnus-mh-mail-setup): It didn't work when pressing ! `R' or yanking because of lack of setting to variable ! `mail-reply-buffer' and mh-sent-from-folder buffer local variable ! `mh-show-buffer'. ! ! Mon Jan 22 02:58:42 1996 Lars Ingebrigtsen ! ! * nntp.el (nntp-open-server-internal): Make sure that the server ! was successfully opened. ! ! * gnus.el (gnus-read-active-file): Wouldn't activate properly. ! (gnus-read-active-file): Ignore errors from the archive server. ! ! * nnbabyl.el (nnbabyl-request-group): Ditto. ! ! * nnmbox.el (nnmbox-request-group): Would bug out. ! ! Sat Jan 20 20:39:03 1996 Steven L. Baur ! ! * nnmbox.el (nnmbox-read-mbox): find-file-noselect -> ! nnheader-find-file-noselect. ! ! Mon Jan 22 01:15:52 1996 Lars Ingebrigtsen ! ! * gnus.el (gnus-group-mark-buffer): Optional param. ! ! * nnsoup.el (nnsoup-request-expire-articles): Message more. ! (nnsoup-read-active-file): Add proper active info. ! (nnsoup-request-group): New implementation. ! (nnsoup-request-list): Ditto. ! ! Sun Jan 21 08:22:47 1996 Lars Ingebrigtsen ! ! * gnus.el (gnus-request-article-this-buffer): Update sparse ! articles. ! (gnus-data-set-number): New macro. ! (gnus-summary-update-article): Use it. ! ! Sun Jan 21 03:54:18 1996 Lars Magne Ingebrigtsen ! ! * gnus-soup.el (gnus-soup-add-article): Don't save canceled ! articles. ! *** pub/sgnus/texi/gnus.texi Tue Jun 18 17:58:50 1996 --- sgnus/texi/gnus.texi Wed Jun 19 16:30:52 1996 *************** *** 1307,1312 **** --- 1307,1314 ---- (@pxref{Listing Groups}), or to just check for new articles in groups on a given level or lower (@pxref{Scanning New Messages}). + Remember: The higher the level of the group, the less important it is. + @table @kbd @item S l *************** *** 11113,11119 **** * Contributors:: Oodles of people. * New Features:: Pointers to some of the new stuff in Gnus. * Newest Features:: Features so new that they haven't been written yet. - * Censorship:: This manual has been censored. @end menu --- 11115,11120 ---- *************** *** 11546,11566 **** @code{} is where the actual up-to-the-second todo list is located, so if you're really curious, you could point your Web browser over that-a-way. - - - @node Censorship - @subsection Censorship - @cindex censorship - - This version of the Gnus manual (as well as Gnus itself) has been - censored in accord with the Communications Decency Act. This law was - described by its proponents as a ban on pornography---which was a - deception, since it prohibits far more than that. This manual did not - contain pornography, but part of it was prohibited nonetheless. - - For information on US government censorship of the Internet, and - what you can do to bring back freedom of the press, see the web - site @samp{http://www.vtw.org/}. @node Terminology --- 11547,11552 ---- *** pub/sgnus/texi/ChangeLog Tue Jun 18 17:58:49 1996 --- sgnus/texi/ChangeLog Wed Jun 19 16:31:04 1996 *************** *** 1,3 **** --- 1,11 ---- + Wed Jun 19 16:30:55 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Censorship): Removed. + + Wed Jun 19 15:03:35 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Group Levels): Addition. + Sun Jun 16 08:13:44 1996 Lars Magne Ingebrigtsen * gnus.texi (Saving Articles): Fix.