*** pub/qgnus/lisp/dgnushack.el Sat Feb 14 19:27:24 1998 --- qgnus/lisp/dgnushack.el Mon Jun 1 04:30:13 1998 *************** *** 1,7 **** ;;; dgnushack.el --- a hack to set the load path for byte-compiling ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Version: 4.19 ;; Keywords: news, path --- 1,7 ---- ;;; dgnushack.el --- a hack to set the load path for byte-compiling ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Version: 4.19 ;; Keywords: news, path *** pub/qgnus/lisp/gnus-agent.el Fri May 1 19:44:29 1998 --- qgnus/lisp/gnus-agent.el Mon Jun 1 04:30:14 1998 *************** *** 1,7 **** ;;; gnus-agent.el --- unplugged support for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify --- 1,7 ---- ;;; gnus-agent.el --- unplugged support for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify *************** *** 354,365 **** ;;; (defun gnus-agent-fetch-groups (n) ! "Put all new articles in the current groups into the agent." (interactive "P") (gnus-group-iterate n 'gnus-agent-fetch-group)) (defun gnus-agent-fetch-group (group) ! "Put all new articles in GROUP into the agent." (interactive (list (gnus-group-group-name))) (unless group (error "No group on the current line")) --- 354,365 ---- ;;; (defun gnus-agent-fetch-groups (n) ! "Put all new articles in the current groups into the Agent." (interactive "P") (gnus-group-iterate n 'gnus-agent-fetch-group)) (defun gnus-agent-fetch-group (group) ! "Put all new articles in GROUP into the Agent." (interactive (list (gnus-group-group-name))) (unless group (error "No group on the current line")) *************** *** 403,409 **** (error "Server already in the agent program")) (push method gnus-agent-covered-methods) (gnus-agent-write-servers) ! (message "Entered %s into the agent" server))) (defun gnus-agent-remove-server (server) "Remove SERVER from the agent program." --- 403,409 ---- (error "Server already in the agent program")) (push method gnus-agent-covered-methods) (gnus-agent-write-servers) ! (message "Entered %s into the Agent" server))) (defun gnus-agent-remove-server (server) "Remove SERVER from the agent program." *************** *** 537,543 **** (nnheader-temp-write file (insert-file-contents file) (goto-char (point-min)) ! (when (re-search-forward "^" (regexp-quote group) " " nil t) (gnus-delete-line)) (insert group " " (number-to-string (cdr active)) " " (number-to-string (car active)) "\n"))))) --- 537,543 ---- (nnheader-temp-write file (insert-file-contents file) (goto-char (point-min)) ! (when (re-search-forward (concat "^" (regexp-quote group) " ") nil t) (gnus-delete-line)) (insert group " " (number-to-string (cdr active)) " " (number-to-string (car active)) "\n"))))) *************** *** 629,635 **** ;;; (defun gnus-agent-fetch-articles (group articles) ! "Fetch ARTICLES from GROUP and put them into the agent." (when articles ;; Prune off articles that we have already fetched. (while (and articles --- 629,635 ---- ;;; (defun gnus-agent-fetch-articles (group articles) ! "Fetch ARTICLES from GROUP and put them into the Agent." (when articles ;; Prune off articles that we have already fetched. (while (and articles *************** *** 662,668 **** (insert-buffer-substring nntp-server-buffer))) (copy-to-buffer nntp-server-buffer (point-min) (point-max)) (setq pos (nreverse pos))))) ! ;; Then save these articles into the agent. (save-excursion (set-buffer nntp-server-buffer) (while pos --- 662,668 ---- (insert-buffer-substring nntp-server-buffer))) (copy-to-buffer nntp-server-buffer (point-min) (point-max)) (setq pos (nreverse pos))))) ! ;; Then save these articles into the Agent. (save-excursion (set-buffer nntp-server-buffer) (while pos *************** *** 866,876 **** (setq gnus-command-method (car methods)) (when (or (gnus-server-opened gnus-command-method) (gnus-open-server gnus-command-method)) ! (setq groups (gnus-groups-from-server (pop methods))) (gnus-agent-with-fetch (while (setq group (pop groups)) (when (<= (gnus-group-level group) gnus-agent-handle-level) ! (gnus-agent-fetch-group-1 group gnus-command-method)))))) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) (defun gnus-agent-fetch-group-1 (group method) --- 866,877 ---- (setq gnus-command-method (car methods)) (when (or (gnus-server-opened gnus-command-method) (gnus-open-server gnus-command-method)) ! (setq groups (gnus-groups-from-server (car methods))) (gnus-agent-with-fetch (while (setq group (pop groups)) (when (<= (gnus-group-level group) gnus-agent-handle-level) ! (gnus-agent-fetch-group-1 group gnus-command-method))))) ! (pop methods)) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) (defun gnus-agent-fetch-group-1 (group method) *************** *** 881,887 **** gnus-use-cache articles score arts category predicate info marks score-param) ;; Fetch headers. ! (when (and (setq articles (gnus-list-of-unread-articles group)) (gnus-agent-fetch-headers group articles)) ;; Parse them and see which articles we want to fetch. (setq gnus-newsgroup-dependencies --- 882,889 ---- gnus-use-cache articles score arts category predicate info marks score-param) ;; Fetch headers. ! (when (and (or (gnus-active group) (gnus-activate-group group)) ! (setq articles (gnus-list-of-unread-articles group)) (gnus-agent-fetch-headers group articles)) ;; Parse them and see which articles we want to fetch. (setq gnus-newsgroup-dependencies *************** *** 1264,1270 **** (setq gnus-agent-current-history (setq history (gnus-agent-history-buffer)))) (goto-char (point-min)) ! (unless (zerop (buffer-size)) (goto-char (point-min)) (while (not (eobp)) (skip-chars-forward "^\t") --- 1266,1272 ---- (setq gnus-agent-current-history (setq history (gnus-agent-history-buffer)))) (goto-char (point-min)) ! (when (> (buffer-size) 1) (goto-char (point-min)) (while (not (eobp)) (skip-chars-forward "^\t") *************** *** 1295,1306 **** --- 1297,1310 ---- (cdr (assq 'dormant (gnus-info-marks info))))) nov-file (gnus-agent-article-name ".overview" group)) + (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) (insert-file-contents nov-file)) (goto-char (point-min)) + (setq article 0) (while (setq elem (pop articles)) (setq article (car elem)) (when (or (null low) *************** *** 1310,1317 **** (not (memq article marked)))) ;; Find and nuke the NOV line. (while (and (not (eobp)) ! (< (setq art (read (current-buffer))) article)) ! (forward-line 1)) (if (or (eobp) (/= art article)) (beginning-of-line) --- 1314,1328 ---- (not (memq article marked)))) ;; Find and nuke the NOV line. (while (and (not (eobp)) ! (or (not (numberp ! (setq art (read (current-buffer))))) ! (< art article))) ! (if (file-exists-p ! (gnus-agent-article-name ! (number-to-string article) group)) ! (forward-line 1) ! ;; Remove old NOV lines that have no articles. ! (gnus-delete-line))) (if (or (eobp) (/= art article)) (beginning-of-line) *************** *** 1323,1329 **** (delete-file file)) ;; Schedule the history line for nuking. (push (cdr elem) histories))) ! (write-region (point-min) (point-max) nov-file nil 'silent)) expiry-hashtb) (set-buffer history) (setq histories (nreverse (sort histories '<))) --- 1334,1359 ---- (delete-file file)) ;; Schedule the history line for nuking. (push (cdr elem) histories))) ! (write-region (point-min) (point-max) nov-file nil 'silent) ! ;; Delete the unwanted entries in the alist. ! (setq gnus-agent-article-alist ! (sort gnus-agent-article-alist 'car-less-than-car)) ! (let* ((alist gnus-agent-article-alist) ! (prev (cons nil alist)) ! (first prev)) ! (while (and alist ! (<= (caar alist) article)) ! (if (or (not (cdar alist)) ! (not (file-exists-p ! (gnus-agent-article-name ! (number-to-string ! (caar alist)) ! group)))) ! (setcdr prev (setq alist (cdr alist))) ! (setq prev alist ! alist (cdr alist)))) ! (setq gnus-agent-article-alist (cdr first))) ! (gnus-agent-save-alist group)) expiry-hashtb) (set-buffer history) (setq histories (nreverse (sort histories '<))) *** pub/qgnus/lisp/gnus-art.el Wed Apr 29 22:47:51 1998 --- qgnus/lisp/gnus-art.el Mon Jun 1 04:30:16 1998 *************** *** 1,7 **** ;;; gnus-art.el --- article mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-art.el --- article mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 2720,2725 **** --- 2720,2726 ---- ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\( \n\t]+\\)>" 0 t gnus-url-mailto 2) + ("mailto:\\([a-zA-Z.-@_+0-9%]+\\)" 0 t gnus-url-mailto 2) ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1) ;; This is how URLs _should_ be embedded in text... ("]*\\)>" 0 t gnus-button-embedded-url 1) *** pub/qgnus/lisp/gnus-async.el Sun Feb 22 04:18:58 1998 --- qgnus/lisp/gnus-async.el Mon Jun 1 04:30:16 1998 *************** *** 1,7 **** ;;; gnus-async.el --- asynchronous support for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-async.el --- asynchronous support for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-bcklg.el Sat Feb 14 19:27:28 1998 --- qgnus/lisp/gnus-bcklg.el Mon Jun 1 04:30:16 1998 *************** *** 1,7 **** ;;; gnus-bcklg.el --- backlog functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-bcklg.el --- backlog functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-cache.el Wed Apr 29 22:47:52 1998 --- qgnus/lisp/gnus-cache.el Mon Jun 1 04:30:17 1998 *************** *** 1,7 **** ;;; gnus-cache.el --- cache interface for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-cache.el --- cache interface for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-demon.el Sat Feb 28 08:19:55 1998 --- qgnus/lisp/gnus-demon.el Mon Jun 1 04:30:17 1998 *************** *** 1,7 **** ;;; gnus-demon.el --- daemonic Gnus behaviour ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-demon.el --- daemonic Gnus behaviour ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-draft.el Fri May 1 19:44:29 1998 --- qgnus/lisp/gnus-draft.el Mon Jun 1 04:30:17 1998 *************** *** 1,7 **** ;;; gnus-draft.el --- draft message support for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtgnus-run-hooks ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-draft.el --- draft message support for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-dup.el Sat Feb 14 19:27:29 1998 --- qgnus/lisp/gnus-dup.el Mon Jun 1 04:30:17 1998 *************** *** 1,7 **** ;;; gnus-dup.el --- suppression of duplicate articles in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-dup.el --- suppression of duplicate articles in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-eform.el Sun Mar 8 14:01:35 1998 --- qgnus/lisp/gnus-eform.el Mon Jun 1 04:30:17 1998 *************** *** 1,7 **** ;;; gnus-eform.el --- a mode for editing forms for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-eform.el --- a mode for editing forms for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-ems.el Sat Feb 28 08:19:55 1998 --- qgnus/lisp/gnus-ems.el Mon Jun 1 04:30:18 1998 *************** *** 1,7 **** ;;; gnus-ems.el --- functions for making Gnus work under different Emacsen ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-ems.el --- functions for making Gnus work under different Emacsen ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-group.el Wed Apr 29 22:47:54 1998 --- qgnus/lisp/gnus-group.el Mon Jun 1 04:30:20 1998 *************** *** 1,7 **** ;;; gnus-group.el --- group mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-group.el --- group mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 711,717 **** (fboundp 'gnus-soup-pack-packet)] ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)] ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)] ! ["Brew SOUP" gnus-soup-brew-soup (fboundp 'gnus-soup-pack-packet)]) ["Send a bug report" gnus-bug t] ["Send a mail" gnus-group-mail t] ["Post an article..." gnus-group-post-news t] --- 711,717 ---- (fboundp 'gnus-soup-pack-packet)] ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)] ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)] ! ["Brew SOUP" gnus-group-brew-soup (fboundp 'gnus-soup-pack-packet)]) ["Send a bug report" gnus-bug t] ["Send a mail" gnus-group-mail t] ["Post an article..." gnus-group-post-news t] *************** *** 1585,1598 **** ;; Transform the select method into a unique server. (when (stringp method) (setq method (gnus-server-to-method method))) ! (let ((saddr (intern (format "%s-address" (car method))))) ! (setq method (gnus-copy-sequence method)) ! (require (car method)) ! (when (boundp saddr) ! (unless (assq saddr method) ! (nconc method `((,saddr ,(cadr method)))) ! (setf (cadr method) (format "%s-%d" (cadr method) ! (incf gnus-ephemeral-group-server)))))) (let ((group (if (gnus-group-foreign-p group) group (gnus-group-prefixed-name group method)))) (gnus-sethash --- 1585,1598 ---- ;; Transform the select method into a unique server. (when (stringp method) (setq method (gnus-server-to-method method))) ! ;;; (let ((saddr (intern (format "%s-address" (car method))))) ! ;;; (setq method (gnus-copy-sequence method)) ! ;;; (require (car method)) ! ;;; (when (boundp saddr) ! ;;; (unless (assq saddr method) ! ;;; (nconc method `((,saddr ,(cadr method)))) ! ;;; (setf (cadr method) (format "%s-%d" (cadr method) ! ;;; (incf gnus-ephemeral-group-server)))))) (let ((group (if (gnus-group-foreign-p group) group (gnus-group-prefixed-name group method)))) (gnus-sethash *** pub/qgnus/lisp/gnus-int.el Sun Mar 29 09:55:28 1998 --- qgnus/lisp/gnus-int.el Mon Jun 1 04:30:20 1998 *************** *** 1,7 **** ;;; gnus-int.el --- backend interface functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-int.el --- backend interface functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-kill.el Sun Feb 22 04:19:02 1998 --- qgnus/lisp/gnus-kill.el Mon Jun 1 04:30:20 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-logic.el Sat Feb 14 19:27:33 1998 --- qgnus/lisp/gnus-logic.el Mon Jun 1 04:30:21 1998 *************** *** 1,7 **** ;;; gnus-logic.el --- advanced scoring code for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-logic.el --- advanced scoring code for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-mh.el Sat Feb 14 19:27:34 1998 --- qgnus/lisp/gnus-mh.el Mon Jun 1 04:30:21 1998 *************** *** 2,8 **** ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-move.el Wed Apr 29 22:47:54 1998 --- qgnus/lisp/gnus-move.el Mon Jun 1 04:30:21 1998 *************** *** 1,7 **** ;;; gnus-move.el --- commands for moving Gnus from one server to another ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-move.el --- commands for moving Gnus from one server to another ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-msg.el Fri May 1 19:44:30 1998 --- qgnus/lisp/gnus-msg.el Mon Jun 1 04:30:21 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-nocem.el Mon Feb 16 20:19:37 1998 --- qgnus/lisp/gnus-nocem.el Mon Jun 1 04:30:22 1998 *************** *** 1,7 **** ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-range.el Sat Feb 14 19:27:35 1998 --- qgnus/lisp/gnus-range.el Mon Jun 1 04:30:22 1998 *************** *** 1,7 **** ;;; gnus-range.el --- range and sequence functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-range.el --- range and sequence functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-salt.el Wed Apr 29 22:47:55 1998 --- qgnus/lisp/gnus-salt.el Mon Jun 1 04:30:22 1998 *************** *** 1,7 **** ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-score.el Fri May 1 19:44:32 1998 --- qgnus/lisp/gnus-score.el Mon Jun 1 04:30:24 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-soup.el Fri May 1 19:44:32 1998 --- qgnus/lisp/gnus-soup.el Mon Jun 1 04:30:25 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen ! ;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen ! ;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-spec.el Mon Apr 27 00:24:57 1998 --- qgnus/lisp/gnus-spec.el Mon Jun 1 04:30:25 1998 *************** *** 1,7 **** ;;; gnus-spec.el --- format spec functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-spec.el --- format spec functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-srvr.el Mon Feb 23 18:04:43 1998 --- qgnus/lisp/gnus-srvr.el Mon Jun 1 04:30:25 1998 *************** *** 1,7 **** ;;; gnus-srvr.el --- virtual server support for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-srvr.el --- virtual server support for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-start.el Mon Apr 27 00:24:59 1998 --- qgnus/lisp/gnus-start.el Mon Jun 1 04:30:27 1998 *************** *** 1,7 **** ;;; gnus-start.el --- startup functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-start.el --- startup functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-sum.el Fri May 1 19:44:37 1998 --- qgnus/lisp/gnus-sum.el Mon Jun 1 04:30:31 1998 *************** *** 1,7 **** ;;; gnus-sum.el --- summary mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-sum.el --- summary mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-topic.el Mon Feb 23 18:04:44 1998 --- qgnus/lisp/gnus-topic.el Mon Jun 1 04:30:32 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Ilja Weis ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Ilja Weis ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-undo.el Mon Apr 27 00:25:04 1998 --- qgnus/lisp/gnus-undo.el Mon Jun 1 04:30:32 1998 *************** *** 1,7 **** ;;; gnus-undo.el --- minor mode for undoing in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-undo.el --- minor mode for undoing in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-util.el Fri May 1 19:44:37 1998 --- qgnus/lisp/gnus-util.el Mon Jun 1 04:30:32 1998 *************** *** 1,7 **** ;;; gnus-util.el --- utility functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-util.el --- utility functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 340,364 **** (yes-or-no-p prompt) (message ""))) - ;; I suspect there's a better way, but I haven't taken the time to do - ;; it yet. -erik selberg@cs.washington.edu (defun gnus-dd-mmm (messy-date) "Return a string like DD-MMM from a big messy string" ! (if (equal messy-date "") ! "??-???" ! (let ((datevec (ignore-errors (timezone-parse-date messy-date)))) ! (if (not datevec) ! "??-???" ! (format "%2s-%s" ! (condition-case () ! ;; Make sure leading zeroes are stripped. ! (number-to-string (string-to-number (aref datevec 2))) ! (error "??")) ! (capitalize ! (or (car ! (nth (1- (string-to-number (aref datevec 1))) ! timezone-months-assoc)) ! "???"))))))) (defmacro gnus-date-get-time (date) "Convert DATE string to Emacs time. --- 340,361 ---- (yes-or-no-p prompt) (message ""))) (defun gnus-dd-mmm (messy-date) "Return a string like DD-MMM from a big messy string" ! (let ((datevec (ignore-errors (timezone-parse-date messy-date)))) ! (if (or (not datevec) ! (string-equal "0" (aref datevec 1))) ! "??-???" ! (format "%2s-%s" ! (condition-case () ! ;; Make sure leading zeroes are stripped. ! (number-to-string (string-to-number (aref datevec 2))) ! (error "??")) ! (capitalize ! (or (car ! (nth (1- (string-to-number (aref datevec 1))) ! timezone-months-assoc)) ! "???")))))) (defmacro gnus-date-get-time (date) "Convert DATE string to Emacs time. *** pub/qgnus/lisp/gnus-uu.el Wed Apr 29 22:48:04 1998 --- qgnus/lisp/gnus-uu.el Mon Jun 1 04:30:34 1998 *************** *** 1,7 **** ;;; gnus-uu.el --- extract (uu)encoded files in Gnus ;; Copyright (C) 1985,86,87,93,94,95,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Created: 2 Oct 1993 ;; Keyword: news --- 1,7 ---- ;;; gnus-uu.el --- extract (uu)encoded files in Gnus ;; Copyright (C) 1985,86,87,93,94,95,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Created: 2 Oct 1993 ;; Keyword: news *** pub/qgnus/lisp/gnus-win.el Thu Mar 19 15:20:35 1998 --- qgnus/lisp/gnus-win.el Mon Jun 1 04:30:34 1998 *************** *** 1,7 **** ;;; gnus-win.el --- window configuration functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-win.el --- window configuration functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus-xmas.el Wed Apr 29 22:48:04 1998 --- qgnus/lisp/gnus-xmas.el Mon Jun 1 04:30:35 1998 *************** *** 1,7 **** ;;; gnus-xmas.el --- Gnus functions for XEmacs ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; gnus-xmas.el --- Gnus functions for XEmacs ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/gnus.el Fri May 1 21:57:25 1998 --- qgnus/lisp/gnus.el Mon Jun 1 04:30:36 1998 *************** *** 2,8 **** ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.9" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 250,256 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.10" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/message.el Fri May 1 19:44:41 1998 --- qgnus/lisp/message.el Mon Jun 1 04:30:38 1998 *************** *** 1,7 **** ;;; message.el --- composing mail and news messages ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; message.el --- composing mail and news messages ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. *************** *** 3422,3431 **** message-id (message-fetch-field "message-id" t) distribution (message-fetch-field "distribution"))) ;; Make sure that this article was written by the user. ! (unless (string-equal ! (downcase ! (or sender (cadr (mail-extract-address-components from)))) ! (downcase (message-make-sender))) (error "This article is not yours")) ;; Make control message. (setq buf (set-buffer (get-buffer-create " *message cancel*"))) --- 3422,3435 ---- message-id (message-fetch-field "message-id" t) distribution (message-fetch-field "distribution"))) ;; Make sure that this article was written by the user. ! (unless (or (and sender ! (string-equal ! (downcase sender) ! (downcase (message-make-sender)))) ! (string-equal ! (downcase (cadr (mail-extract-address-components from))) ! (downcase (cadr (mail-extract-address-components ! (message-make-from)))))) (error "This article is not yours")) ;; Make control message. (setq buf (set-buffer (get-buffer-create " *message cancel*"))) *** pub/qgnus/lisp/messagexmas.el Sat Feb 14 19:27:52 1998 --- qgnus/lisp/messagexmas.el Mon Jun 1 04:30:39 1998 *************** *** 1,7 **** ;;; messagexmas.el --- XEmacs extensions to message ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; messagexmas.el --- XEmacs extensions to message ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/messcompat.el Sat Feb 14 19:27:52 1998 --- qgnus/lisp/messcompat.el Mon Jun 1 04:30:39 1998 *************** *** 1,7 **** ;;; messcompat.el --- making message mode compatible with mail mode ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; messcompat.el --- making message mode compatible with mail mode ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnagent.el Fri May 1 19:44:41 1998 --- qgnus/lisp/nnagent.el Mon Jun 1 04:30:39 1998 *************** *** 1,7 **** ;;; nnagent.el --- offline backend for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnagent.el --- offline backend for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnbabyl.el Fri Apr 24 21:32:49 1998 --- qgnus/lisp/nnbabyl.el Mon Jun 1 04:30:39 1998 *************** *** 1,7 **** ;;; nnbabyl.el --- rmail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nnbabyl.el --- rmail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *************** *** 32,38 **** (require 'nnheader) (condition-case nil (require 'rmail) ! (t (message "Ignore rmail errors from this file, you don't have rmail"))) (require 'nnmail) (require 'nnoo) (eval-when-compile (require 'cl)) --- 32,38 ---- (require 'nnheader) (condition-case nil (require 'rmail) ! (t (nnheader-message 5 "Ignore rmail errors from this file, you don't have rmail"))) (require 'nnmail) (require 'nnoo) (eval-when-compile (require 'cl)) *************** *** 645,651 **** (when (buffer-modified-p (current-buffer)) (save-buffer)) (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file) ! (message "")))) (provide 'nnbabyl) --- 645,651 ---- (when (buffer-modified-p (current-buffer)) (save-buffer)) (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file) ! (nnheader-message 5 "")))) (provide 'nnbabyl) *** pub/qgnus/lisp/nndb.el Sat Feb 28 08:20:08 1998 --- qgnus/lisp/nndb.el Mon Jun 1 04:30:40 1998 *************** *** 195,201 **** (nntp-send-command "^[23].*\n" "X-DELETE" delete-list)) ) ! (message "") (nconc rest articles))) (defun nndb-get-remote-expire-response () --- 195,201 ---- (nntp-send-command "^[23].*\n" "X-DELETE" delete-list)) ) ! (nnheader-message 5 "") (nconc rest articles))) (defun nndb-get-remote-expire-response () *************** *** 297,303 **** (or (string-match "^\\([0-9]+\\)" msg) (error "nndb: %s" msg)) (setq art (substring msg (match-beginning 1) (match-end 1))) ! (message "nndb: accepted %s" art) (list art))) (deffoo nndb-request-replace-article (article group buffer) --- 297,303 ---- (or (string-match "^\\([0-9]+\\)" msg) (error "nndb: %s" msg)) (setq art (substring msg (match-beginning 1) (match-end 1))) ! (nnheader-message 5 "nndb: accepted %s" art) (list art))) (deffoo nndb-request-replace-article (article group buffer) *** pub/qgnus/lisp/nndir.el Sat Feb 14 19:27:53 1998 --- qgnus/lisp/nndir.el Mon Jun 1 04:30:40 1998 *************** *** 1,7 **** ;;; nndir.el --- single directory newsgroup access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nndir.el --- single directory newsgroup access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nndoc.el Thu Mar 19 15:20:39 1998 --- qgnus/lisp/nndoc.el Mon Jun 1 04:30:40 1998 *************** *** 1,7 **** ;;; nndoc.el --- single file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news --- 1,7 ---- ;;; nndoc.el --- single file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news *** pub/qgnus/lisp/nndraft.el Thu Mar 19 15:20:40 1998 --- qgnus/lisp/nndraft.el Mon Jun 1 04:30:40 1998 *************** *** 1,7 **** ;;; nndraft.el --- draft article access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nndraft.el --- draft article access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nneething.el Fri Apr 24 21:32:50 1998 --- qgnus/lisp/nneething.el Mon Jun 1 04:30:41 1998 *************** *** 1,7 **** ;;; nneething.el --- arbitrary file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nneething.el --- arbitrary file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *************** *** 103,113 **** (and large (zerop (% count 20)) ! (message "nneething: Receiving headers... %d%%" (/ (* count 100) number)))) (when large ! (message "nneething: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) --- 103,113 ---- (and large (zerop (% count 20)) ! (nnheader-message 5 "nneething: Receiving headers... %d%%" (/ (* count 100) number)))) (when large ! (nnheader-message 5 "nneething: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) *** pub/qgnus/lisp/nnfolder.el Fri May 1 21:57:25 1998 --- qgnus/lisp/nnfolder.el Mon Jun 1 04:30:41 1998 *************** *** 2,8 **** ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Scott Byer ! ;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: mail --- 2,8 ---- ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Scott Byer ! ;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: mail *************** *** 476,509 **** (defun nnfolder-goto-article (article) "Place point at the start of the headers of ARTICLE. ! ARTICLE can be an article number or a Message-ID." (let ((art-string (nnfolder-article-string article)) ! end-search end start beg) (beginning-of-line) (unless (bobp) (forward-char -1)) (setq start (point)) ! (while (and (not end-search) ! (search-forward art-string nil t)) ! (setq end (point)) ! (nnmail-search-unix-mail-delim-backward) ! (setq beg (point)) ! (when (and (search-forward "\n\n" nil end) ! (search-backward art-string nil beg)) ! (setq end-search 'found) ! (goto-char beg))) ! (unless end-search (goto-char start) ! (while (and (not end-search) ! (search-backward art-string nil t)) ! (setq end (point)) ! (nnmail-search-unix-mail-delim-backward) ! (setq beg (point)) ! (when (and (search-forward "\n\n" nil end) ! (search-backward art-string nil beg)) ! (setq end-search 'found) ! (goto-char beg)))) ! (eq end-search 'found))) (defun nnfolder-delete-mail (&optional force leave-delim) "Delete the message that point is in." --- 476,502 ---- (defun nnfolder-goto-article (article) "Place point at the start of the headers of ARTICLE. ! ARTICLE can be an article number or a Message-ID. ! Returns t if successful, nil otherwise." (let ((art-string (nnfolder-article-string article)) ! start found) ! ;; It is likely that we are at or before the delimiter line. ! ;; We therefore go to the end of the previous line, and start ! ;; searching from there. (beginning-of-line) (unless (bobp) (forward-char -1)) (setq start (point)) ! ;; First search forward. ! (while (and (setq found (search-forward art-string nil t)) ! (not (nnmail-within-headers-p)))) ! ;; If unsuccessful, search backward from where we started, ! (unless found (goto-char start) ! (while (and (setq found (search-backward art-string nil t)) ! (not (nnmail-within-headers-p))))) ! (when found ! (nnmail-search-unix-mail-delim-backward)))) (defun nnfolder-delete-mail (&optional force leave-delim) "Delete the message that point is in." *************** *** 713,720 **** (while (and (search-forward marker nil t) (re-search-forward number nil t)) (let ((newnum (string-to-number (match-string 0)))) ! (setq maxid (max maxid newnum)) ! (setq minid (min minid newnum)))) (setcar active (max 1 (min minid maxid))) (setcdr active (max maxid (cdr active))) (goto-char (point-min))) --- 706,714 ---- (while (and (search-forward marker nil t) (re-search-forward number nil t)) (let ((newnum (string-to-number (match-string 0)))) ! (if (nnmail-within-headers-p) ! (setq maxid (max maxid newnum) ! minid (min minid newnum))))) (setcar active (max 1 (min minid maxid))) (setcdr active (max maxid (cdr active))) (goto-char (point-min))) *************** *** 788,794 **** (nnfolder-possibly-change-folder file) (nnfolder-possibly-change-group file) (nnfolder-close-group file)))) ! (message ""))) (defun nnfolder-group-pathname (group) "Make pathname for GROUP." --- 782,788 ---- (nnfolder-possibly-change-folder file) (nnfolder-possibly-change-group file) (nnfolder-close-group file)))) ! (nnheader-message 5 ""))) (defun nnfolder-group-pathname (group) "Make pathname for GROUP." *** pub/qgnus/lisp/nngateway.el Sat Feb 14 19:27:55 1998 --- qgnus/lisp/nngateway.el Mon Jun 1 04:30:41 1998 *************** *** 1,7 **** ;;; nngateway.el --- posting news via mail gateways ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nngateway.el --- posting news via mail gateways ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnheader.el Mon Apr 27 00:25:11 1998 --- qgnus/lisp/nnheader.el Mon Jun 1 04:30:42 1998 *************** *** 2,8 **** ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 605,611 **** trans leaf path len) (if full ;; Do complete translation. ! (setq leaf file path "") ;; We translate -- but only the file name. We leave the directory ;; alone. --- 605,611 ---- trans leaf path len) (if full ;; Do complete translation. ! (setq leaf (copy-sequence file) path "") ;; We translate -- but only the file name. We leave the directory ;; alone. *************** *** 636,644 **** (defun nnheader-get-report (backend) "Get the most recent report from BACKEND." (condition-case () ! (message "%s" (symbol-value (intern (format "%s-status-string" backend)))) ! (error (message "")))) (defun nnheader-insert (format &rest args) "Clear the communication buffer and insert FORMAT and ARGS into the buffer. --- 636,644 ---- (defun nnheader-get-report (backend) "Get the most recent report from BACKEND." (condition-case () ! (nnheader-message 5 "%s" (symbol-value (intern (format "%s-status-string" backend)))) ! (error (nnheader-message 5 "")))) (defun nnheader-insert (format &rest args) "Clear the communication buffer and insert FORMAT and ARGS into the buffer. *************** *** 783,788 **** --- 783,789 ---- (default-major-mode 'fundamental-mode) (enable-local-variables nil) (after-insert-file-functions nil) + (find-file-hooks nil) (coding-system-for-read nnheader-file-coding-system)) (apply 'find-file-noselect args))) *** pub/qgnus/lisp/nnheaderxm.el Sat Feb 14 19:27:55 1998 --- qgnus/lisp/nnheaderxm.el Mon Jun 1 04:30:42 1998 *************** *** 1,7 **** ;;; nnheaderxm.el --- making Gnus backends work under XEmacs ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnheaderxm.el --- making Gnus backends work under XEmacs ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnkiboze.el Fri Apr 24 21:32:50 1998 --- qgnus/lisp/nnkiboze.el Mon Jun 1 04:30:42 1998 *************** *** 1,7 **** ;;; nnkiboze.el --- select virtual news access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnkiboze.el --- select virtual news access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnlistserv.el Sat Feb 28 08:20:09 1998 --- qgnus/lisp/nnlistserv.el Mon Jun 1 04:30:42 1998 *************** *** 1,7 **** ;;; nnlistserv.el --- retrieving articles via web mailing list archives ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnlistserv.el --- retrieving articles via web mailing list archives ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *************** *** 111,117 **** nil 0 0 url)) map) (nnweb-set-hashtb (cadar map) (car map)) ! (message "%s %s %s" (cdr active) (point) pages) )))) ;; Return the articles in the right order. (setq nnweb-articles --- 111,117 ---- nil 0 0 url)) map) (nnweb-set-hashtb (cadar map) (car map)) ! (nnheader-message 5 "%s %s %s" (cdr active) (point) pages) )))) ;; Return the articles in the right order. (setq nnweb-articles *** pub/qgnus/lisp/nnmail.el Mon Apr 27 00:25:11 1998 --- qgnus/lisp/nnmail.el Mon Jun 1 04:30:44 1998 *************** *** 1,7 **** ;;; nnmail.el --- mail support functions for the Gnus mail backends ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnmail.el --- mail support functions for the Gnus mail backends ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *************** *** 591,602 **** (nnmail-read-passwd (format "Password for %s: " (substring inbox (+ popmail 3)))))) ! (message "Getting mail from the post office...")) (when (or (and (file-exists-p tofile) (/= 0 (nnheader-file-size tofile))) (and (file-exists-p inbox) (/= 0 (nnheader-file-size inbox)))) ! (message "Getting mail from %s..." inbox))) ;; Set TOFILE if have not already done so, and ;; rename or copy the file INBOX to TOFILE if and as appropriate. (cond --- 591,602 ---- (nnmail-read-passwd (format "Password for %s: " (substring inbox (+ popmail 3)))))) ! (nnheader-message 5 "Getting mail from the post office...")) (when (or (and (file-exists-p tofile) (/= 0 (nnheader-file-size tofile))) (and (file-exists-p inbox) (/= 0 (nnheader-file-size inbox)))) ! (nnheader-message 5 "Getting mail from %s..." inbox))) ;; Set TOFILE if have not already done so, and ;; rename or copy the file INBOX to TOFILE if and as appropriate. (cond *************** *** 667,673 **** (buffer-string) result)) (error "%s" (buffer-string))) (setq tofile nil))))))) ! (message "Getting mail from %s...done" inbox) (and errors (buffer-name errors) (kill-buffer errors)) --- 667,673 ---- (buffer-string) result)) (error "%s" (buffer-string))) (setq tofile nil))))))) ! (nnheader-message 5 "Getting mail from %s...done" inbox) (and errors (buffer-name errors) (kill-buffer errors)) *************** *** 875,881 **** (goto-char (match-beginning 0)))) ;; Possibly wrong format? (progn ! (pop-to-buffer (find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) --- 875,881 ---- (goto-char (match-beginning 0)))) ;; Possibly wrong format? (progn ! (pop-to-buffer (nnheader-find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) *************** *** 962,968 **** (forward-line 1))) ;; Possibly wrong format? (progn ! (pop-to-buffer (find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) --- 962,968 ---- (forward-line 1))) ;; Possibly wrong format? (progn ! (pop-to-buffer (nnheader-find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) *************** *** 1079,1085 **** (or (funcall nnmail-split-methods) '("bogus")) (error ! (message "Error in `nnmail-split-methods'; using `bogus' mail group") (sit-for 1) '("bogus"))))) --- 1079,1085 ---- (or (funcall nnmail-split-methods) '("bogus")) (error ! (nnheader-message 5 "Error in `nnmail-split-methods'; using `bogus' mail group") (sit-for 1) '("bogus"))))) *************** *** 1768,1773 **** --- 1768,1781 ---- (let ((pop3-maildrop (substring inbox (match-end (string-match "^po:" inbox))))) (pop3-movemail crashbox))) + + (defun nnmail-within-headers-p () + "Check to see if point is within the headers of a unix mail message. + Doesn't change point." + (let ((pos (point))) + (save-excursion + (and (nnmail-search-unix-mail-delim-backward) + (not (search-forward "\n\n" pos t)))))) (run-hooks 'nnmail-load-hook) *** pub/qgnus/lisp/nnmbox.el Mon Apr 27 00:25:12 1998 --- qgnus/lisp/nnmbox.el Mon Jun 1 04:30:44 1998 *************** *** 1,7 **** ;;; nnmbox.el --- mail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nnmbox.el --- mail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *** pub/qgnus/lisp/nnmh.el Sat Feb 21 00:48:58 1998 --- qgnus/lisp/nnmh.el Mon Jun 1 04:30:44 1998 *************** *** 1,7 **** ;;; nnmh.el --- mhspool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nnmh.el --- mhspool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *************** *** 104,114 **** (and large (zerop (% count 20)) ! (message "nnmh: Receiving headers... %d%%" (/ (* count 100) number)))) (when large ! (message "nnmh: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) --- 104,114 ---- (and large (zerop (% count 20)) ! (nnheader-message 5 "nnmh: Receiving headers... %d%%" (/ (* count 100) number)))) (when large ! (nnheader-message 5 "nnmh: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) *************** *** 270,276 **** (push (car articles) rest)))) (push (car articles) rest))) (setq articles (cdr articles))) ! (message "") (nconc rest articles))) (deffoo nnmh-close-group (group &optional server) --- 270,276 ---- (push (car articles) rest)))) (push (car articles) rest))) (setq articles (cdr articles))) ! (nnheader-message 5 "") (nconc rest articles))) (deffoo nnmh-close-group (group &optional server) *** pub/qgnus/lisp/nnml.el Fri Apr 24 21:32:51 1998 --- qgnus/lisp/nnml.el Mon Jun 1 04:30:45 1998 *************** *** 1,7 **** ;;; nnml.el --- mail spool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nnml.el --- mail spool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *** pub/qgnus/lisp/nnoo.el Sat Feb 14 19:27:59 1998 --- qgnus/lisp/nnoo.el Mon Jun 1 04:30:45 1998 *************** *** 1,7 **** ;;; nnoo.el --- OO Gnus Backends ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnoo.el --- OO Gnus Backends ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/nnsoup.el Sat Feb 28 08:20:11 1998 --- qgnus/lisp/nnsoup.el Mon Jun 1 04:30:45 1998 *************** *** 1,7 **** ;;; nnsoup.el --- SOUP access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail --- 1,7 ---- ;;; nnsoup.el --- SOUP access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail *************** *** 417,423 **** (while (setq area (pop areas)) ;; Change the name to the permanent name and move the files. (setq cur-prefix (nnsoup-next-prefix)) ! (message "Incorporating file %s..." cur-prefix) (when (file-exists-p (setq file (concat nnsoup-tmp-directory (gnus-soup-area-prefix area) ".IDX"))) --- 417,423 ---- (while (setq area (pop areas)) ;; Change the name to the permanent name and move the files. (setq cur-prefix (nnsoup-next-prefix)) ! (nnheader-message 5 "Incorporating file %s..." cur-prefix) (when (file-exists-p (setq file (concat nnsoup-tmp-directory (gnus-soup-area-prefix area) ".IDX"))) *************** *** 548,560 **** nnsoup-packet-directory t nnsoup-packet-regexp)) packet) (while (setq packet (pop packets)) ! (message "nnsoup: unpacking %s..." packet) (if (not (gnus-soup-unpack-packet nnsoup-tmp-directory nnsoup-unpacker packet)) ! (message "Couldn't unpack %s" packet) (delete-file packet) (nnsoup-read-areas) ! (message "Unpacking...done"))))) (defun nnsoup-narrow-to-article (article &optional area head) (let* ((area (or area (nnsoup-article-to-area article nnsoup-current-group))) --- 548,560 ---- nnsoup-packet-directory t nnsoup-packet-regexp)) packet) (while (setq packet (pop packets)) ! (nnheader-message 5 "nnsoup: unpacking %s..." packet) (if (not (gnus-soup-unpack-packet nnsoup-tmp-directory nnsoup-unpacker packet)) ! (nnheader-message 5 "Couldn't unpack %s" packet) (delete-file packet) (nnsoup-read-areas) ! (nnheader-message 5 "Unpacking...done"))))) (defun nnsoup-narrow-to-article (article &optional area head) (let* ((area (or area (nnsoup-article-to-area article nnsoup-current-group))) *************** *** 618,624 **** "Make an outbound package of SOUP replies." (interactive) (unless (file-exists-p nnsoup-replies-directory) ! (message "No such directory: %s" nnsoup-replies-directory)) ;; Write all data buffers. (gnus-soup-save-areas) ;; Write the active file. --- 618,624 ---- "Make an outbound package of SOUP replies." (interactive) (unless (file-exists-p nnsoup-replies-directory) ! (nnheader-message 5 "No such directory: %s" nnsoup-replies-directory)) ;; Write all data buffers. (gnus-soup-save-areas) ;; Write the active file. *************** *** 716,722 **** (incf num)) (when nnsoup-always-save (save-buffer))) ! (message "Stored %d messages" num))) (nnsoup-write-replies) (kill-buffer tembuf)))))) --- 716,722 ---- (incf num)) (when nnsoup-always-save (save-buffer))) ! (nnheader-message 5 "Stored %d messages" num))) (nnsoup-write-replies) (kill-buffer tembuf)))))) *************** *** 754,760 **** (set-buffer (get-buffer-create " *nnsoup work*")) (buffer-disable-undo (current-buffer)) (while files ! (message "Doing %s..." (car files)) (erase-buffer) (nnheader-insert-file-contents (car files)) (goto-char (point-min)) --- 754,760 ---- (set-buffer (get-buffer-create " *nnsoup work*")) (buffer-disable-undo (current-buffer)) (while files ! (nnheader-message 5 "Doing %s..." (car files)) (erase-buffer) (nnheader-insert-file-contents (car files)) (goto-char (point-min)) *************** *** 779,785 **** (vector ident group "ncm" "" lines)))) (setcdr (cadr elem) (+ min lines))) (setq files (cdr files))) ! (message "") (setq nnsoup-group-alist active) (nnsoup-write-active-file t))) --- 779,785 ---- (vector ident group "ncm" "" lines)))) (setcdr (cadr elem) (+ min lines))) (setq files (cdr files))) ! (nnheader-message 5 "") (setq nnsoup-group-alist active) (nnsoup-write-active-file t))) *** pub/qgnus/lisp/nnspool.el Sat Feb 21 00:48:59 1998 --- qgnus/lisp/nnspool.el Mon Jun 1 04:30:46 1998 *************** *** 2,8 **** ;; Copyright (C) 1988,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 2,8 ---- ;; Copyright (C) 1988,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ! ;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 144,154 **** (and do-message (zerop (% (incf count) 20)) ! (message "nnspool: Receiving headers... %d%%" (/ (* count 100) number)))) (when do-message ! (message "nnspool: Receiving headers...done")) ;; Fold continuation lines. (nnheader-fold-continuation-lines) --- 144,154 ---- (and do-message (zerop (% (incf count) 20)) ! (nnheader-message 5 "nnspool: Receiving headers... %d%%" (/ (* count 100) number)))) (when do-message ! (nnheader-message 5 "nnspool: Receiving headers...done")) ;; Fold continuation lines. (nnheader-fold-continuation-lines) *************** *** 343,349 **** (while (re-search-forward "[ \t\n]+" nil t) (replace-match " " t t)) (nnheader-report 'nnspool "%s" (buffer-string)) ! (message "nnspool: %s" nnspool-status-string) (ding) (run-hooks 'nnspool-rejected-article-hook)))) --- 343,349 ---- (while (re-search-forward "[ \t\n]+" nil t) (replace-match " " t t)) (nnheader-report 'nnspool "%s" (buffer-string)) ! (nnheader-message 5 "nnspool: %s" nnspool-status-string) (ding) (run-hooks 'nnspool-rejected-article-hook)))) *** pub/qgnus/lisp/nntp.el Fri May 1 19:44:42 1998 --- qgnus/lisp/nntp.el Mon Jun 1 04:30:46 1998 *************** *** 1,7 **** ;;; nntp.el --- nntp access for Gnus ;;; Copyright (C) 1987-90,92-97 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nntp.el --- nntp access for Gnus ;;; Copyright (C) 1987-90,92-97 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *************** *** 274,280 **** ;; Nix out "nntp reading...." message. (when nntp-have-messaged (setq nntp-have-messaged nil) ! (message "")) t)))) (unless discard (erase-buffer))))) --- 274,280 ---- ;; Nix out "nntp reading...." message. (when nntp-have-messaged (setq nntp-have-messaged nil) ! (nnheader-message 5 "")) t)))) (unless discard (erase-buffer))))) *************** *** 977,984 **** (while (not (eobp)) (end-of-line) (delete-char 1) ! (insert nntp-end-of-line) ! (forward-line 1)) (forward-char -1) (unless (eq (char-after (1- (point))) ?\r) (insert "\r")))) --- 977,983 ---- (while (not (eobp)) (end-of-line) (delete-char 1) ! (insert nntp-end-of-line)) (forward-char -1) (unless (eq (char-after (1- (point))) ?\r) (insert "\r")))) *** pub/qgnus/lisp/nnvirtual.el Thu Mar 19 15:20:41 1998 --- qgnus/lisp/nnvirtual.el Mon Jun 1 04:30:46 1998 *************** *** 2,8 **** ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: David Moore ! ;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news --- 2,8 ---- ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: David Moore ! ;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news *** pub/qgnus/lisp/nnweb.el Mon Feb 23 18:04:47 1998 --- qgnus/lisp/nnweb.el Mon Jun 1 04:30:47 1998 *************** *** 1,7 **** ;;; nnweb.el --- retrieving articles via web search engines ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; nnweb.el --- retrieving articles via web search engines ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/score-mode.el Wed Apr 29 22:48:09 1998 --- qgnus/lisp/score-mode.el Mon Jun 1 04:30:47 1998 *************** *** 1,7 **** ;;; score-mode.el --- mode for editing Gnus score files ;; Copyright (C) 1996 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. --- 1,7 ---- ;;; score-mode.el --- mode for editing Gnus score files ;; Copyright (C) 1996 Free Software Foundation, Inc. ! ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. *** pub/qgnus/lisp/ChangeLog Fri May 1 21:57:23 1998 --- qgnus/lisp/ChangeLog Mon Jun 1 04:30:13 1998 *************** *** 1,3 **** --- 1,80 ---- + Mon Jun 1 04:31:23 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.10 is released. + + Mon Jun 1 03:25:33 1998 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-button-alist): Recognize bare mailto buttons + for Gnus. + + * nntp.el: Replaced all `message' calls. + + Mon Jun 1 03:13:46 1998 Wolfgang Rupprecht + + * nntp.el (nntp-encode-text): Removed spurious forward-line. + + Sat May 23 19:44:43 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-fetch-session): Would infloop if + opening failed. + + Tue May 19 04:11:33 1998 Yoshiki Hayashi + + * nnheader.el (nnheader-translate-file-chars): Don't change + string. + + Tue May 19 03:07:45 1998 P. E. Jareth Hein + + * gnus-util.el (gnus-dd-mmm): New version. + + Tue May 19 03:00:39 1998 Lars Magne Ingebrigtsen + + * gnus.el: Changed address. + + Tue May 12 06:12:42 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-expire): Delete more. + + Sun May 10 19:08:28 1998 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-read-ephemeral-group): Don't add + `address'. + + Sun May 3 18:01:01 1998 Lars Magne Ingebrigtsen + + * nnmail.el (nnmail-within-headers-p): Renamed. + + * message.el (message-cancel-news): If a Sender header doesn't + exist, compare From against `message-make-from'. + + Sun May 3 15:07:25 1998 Lars Balker Rasmussen + + * gnus-agent.el (gnus-agent-save-group-info): Fix + re-search-forward params. + + Sun May 3 15:04:02 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-expire): Check for the size. + + Sat May 2 01:50:20 1998 Dan Christensen + + * nnfolder.el (nnfolder-goto-article): New version. + (nnfolder-read-folder): Fix. + + * nnmail.el (nnmail-within-headers): New function. + + Sat May 2 01:36:37 1998 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-goto-article): Thinkotypo search arguments. + + * nnheader.el (nnheader-find-file-noselect): Also bind + `find-file-hooks' to nil. + + * nnmail.el (nnmail-process-unix-mail-format): Don't use + `find-file-noselect'. + + * gnus-group.el (gnus-group-make-menu-bar): Typo. + Fri May 1 21:59:35 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.9 is released. *** pub/qgnus/texi/gnus.texi Fri May 1 21:57:33 1998 --- qgnus/texi/gnus.texi Mon Jun 1 04:30:57 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.9 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.10 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 316,322 **** @tex @titlepage ! @title Gnus 5.6.9 Manual @author by Lars Magne Ingebrigtsen @page --- 316,322 ---- @tex @titlepage ! @title Gnus 5.6.10 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 352,358 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.6.9. @end ifinfo --- 352,358 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.6.10. @end ifinfo *************** *** 850,856 **** @vindex gnus-save-newsrc-file You can turn off writing the @file{.newsrc} file by setting @code{gnus-save-newsrc-file} to @code{nil}, which means you can delete ! the file and save some space, as well as making exit from Gnus faster. However, this will make it impossible to use other newsreaders than Gnus. But hey, who would want to, right? --- 850,856 ---- @vindex gnus-save-newsrc-file You can turn off writing the @file{.newsrc} file by setting @code{gnus-save-newsrc-file} to @code{nil}, which means you can delete ! the file and save some space, as well as exiting from Gnus faster. However, this will make it impossible to use other newsreaders than Gnus. But hey, who would want to, right? *************** *** 1356,1369 **** @findex gnus-group-prev-group Go to the previous group (@code{gnus-group-prev-group}). ! @item M-p ! @kindex M-p (Group) @findex gnus-group-next-unread-group-same-level Go to the next unread group on the same (or lower) level (@code{gnus-group-next-unread-group-same-level}). ! @item M-n ! @kindex M-n (Group) @findex gnus-group-prev-unread-group-same-level Go to the previous unread group on the same (or lower) level (@code{gnus-group-prev-unread-group-same-level}). --- 1356,1369 ---- @findex gnus-group-prev-group Go to the previous group (@code{gnus-group-prev-group}). ! @item M-n ! @kindex M-n (Group) @findex gnus-group-next-unread-group-same-level Go to the next unread group on the same (or lower) level (@code{gnus-group-next-unread-group-same-level}). ! @item M-p ! @kindex M-p (Group) @findex gnus-group-prev-unread-group-same-level Go to the previous unread group on the same (or lower) level (@code{gnus-group-prev-unread-group-same-level}). *************** *** 1482,1488 **** Select the first unread article when entering the group. @item best ! Select the most high-scored article in the group when entering the group. @end table --- 1482,1488 ---- Select the first unread article when entering the group. @item best ! Select the highest scored article in the group when entering the group. @end table *************** *** 1995,2001 **** you'll get mail group semantics when doing @kbd{f}. If you do an @kbd{a} command in a mail group and you have neither a ! @code{to-list} group parameter nor a @code{to-address} group paramater, then a @code{to-list} group parameter will be added automatically upon sending the message if @code{gnus-add-to-list} is set to @code{t}. @vindex gnus-add-to-list --- 1995,2001 ---- you'll get mail group semantics when doing @kbd{f}. If you do an @kbd{a} command in a mail group and you have neither a ! @code{to-list} group parameter nor a @code{to-address} group parameter, then a @code{to-list} group parameter will be added automatically upon sending the message if @code{gnus-add-to-list} is set to @code{t}. @vindex gnus-add-to-list *************** *** 3820,3826 **** current article (@code{gnus-summary-mail-crosspost-complaint}). @findex gnus-crosspost-complaint ! This command is provided as a way to fight back agains the current crossposting pandemic that's sweeping Usenet. It will compose a reply using the @code{gnus-crosspost-complaint} variable as a preamble. This command understands the process/prefix convention --- 3820,3826 ---- current article (@code{gnus-summary-mail-crosspost-complaint}). @findex gnus-crosspost-complaint ! This command is provided as a way to fight back against the current crossposting pandemic that's sweeping Usenet. It will compose a reply using the @code{gnus-crosspost-complaint} variable as a preamble. This command understands the process/prefix convention *************** *** 3872,3880 **** Post a followup to the current article via news, even if you got the message through mail (@code{gnus-summary-followup-to-mail}). ! @item S n ! @kindex S n (Summary) ! @findex gnus-summary-followup-to-mail Post a followup to the current article via news, even if you got the message through mail and include the original message (@code{gnus-summary-followup-to-mail-with-original}). This command uses --- 3872,3880 ---- Post a followup to the current article via news, even if you got the message through mail (@code{gnus-summary-followup-to-mail}). ! @item S N ! @kindex S N (Summary) ! @findex gnus-summary-followup-to-mail-with-original Post a followup to the current article via news, even if you got the message through mail and include the original message (@code{gnus-summary-followup-to-mail-with-original}). This command uses *************** *** 3930,3936 **** live on here and there, while most sites will delete the article in question. ! Gnus will use the ``current'' select method when cancelling. If you want to use the standard posting method, use the @samp{a} symbolic prefix (@pxref{Symbolic Prefixes}). --- 3930,3936 ---- live on here and there, while most sites will delete the article in question. ! Gnus will use the ``current'' select method when canceling. If you want to use the standard posting method, use the @samp{a} symbolic prefix (@pxref{Symbolic Prefixes}). *************** *** 4454,4460 **** @item / m @kindex / m (Summary) @findex gnus-summary-limit-to-marks ! Ask for a mark and then limit to all articles that have not been marked with that mark (@code{gnus-summary-limit-to-marks}). @item / t --- 4454,4460 ---- @item / m @kindex / m (Summary) @findex gnus-summary-limit-to-marks ! Ask for a mark and then limit to all articles that have been marked with that mark (@code{gnus-summary-limit-to-marks}). @item / t *************** *** 4489,4521 **** @kindex M S (Summary) @kindex / E (Summary) @findex gnus-summary-limit-include-expunged ! Display all expunged articles (@code{gnus-summary-limit-include-expunged}). @item / D @kindex / D (Summary) @findex gnus-summary-limit-include-dormant ! Display all dormant articles (@code{gnus-summary-limit-include-dormant}). @item / * @kindex / * (Summary) @findex gnus-summary-limit-include-cached ! Display all cached articles (@code{gnus-summary-limit-include-cached}). @item / d @kindex / d (Summary) @findex gnus-summary-limit-exclude-dormant ! Hide all dormant articles (@code{gnus-summary-limit-exclude-dormant}). @item / T @kindex / T (Summary) @findex gnus-summary-limit-include-thread ! Include all the articles in the current thread. @item / c @kindex / c (Summary) @findex gnus-summary-limit-exclude-childless-dormant ! Hide all dormant articles that have no children (@code{gnus-summary-limit-exclude-childless-dormant}). @item / C --- 4489,4524 ---- @kindex M S (Summary) @kindex / E (Summary) @findex gnus-summary-limit-include-expunged ! Include all expunged articles in the limit (@code{gnus-summary-limit-include-expunged}). @item / D @kindex / D (Summary) @findex gnus-summary-limit-include-dormant ! Include all dormant articles in the limit ! (@code{gnus-summary-limit-include-dormant}). @item / * @kindex / * (Summary) @findex gnus-summary-limit-include-cached ! Include all cached articles in the limit ! (@code{gnus-summary-limit-include-cached}). @item / d @kindex / d (Summary) @findex gnus-summary-limit-exclude-dormant ! Exclude all dormant articles from the limit ! (@code{gnus-summary-limit-exclude-dormant}). @item / T @kindex / T (Summary) @findex gnus-summary-limit-include-thread ! Include all the articles in the current thread in the limit. @item / c @kindex / c (Summary) @findex gnus-summary-limit-exclude-childless-dormant ! Exclude all dormant articles that have no children from the limit (@code{gnus-summary-limit-exclude-childless-dormant}). @item / C *************** *** 4540,4546 **** Threading is done by looking at the @code{References} headers of the articles. In a perfect world, this would be enough to build pretty trees, but unfortunately, the @code{References} header is often broken ! or simply missing. Weird news propagration excarcerbates the problem, so one has to employ other heuristics to get pleasing results. A plethora of approaches exists, as detailed in horrible detail in @pxref{Customizing Threading}. --- 4543,4549 ---- Threading is done by looking at the @code{References} headers of the articles. In a perfect world, this would be enough to build pretty trees, but unfortunately, the @code{References} header is often broken ! or simply missing. Weird news propagation excarcerbates the problem, so one has to employ other heuristics to get pleasing results. A plethora of approaches exists, as detailed in horrible detail in @pxref{Customizing Threading}. *************** *** 4560,4566 **** @item loose threads Threads often lose their roots due to article expiry, or due to the root already having been read in a previous session, and not displayed in the ! summary buffer. We then typicall have many sub-threads that really belong to one thread, but are without connecting roots. These are called loose threads. --- 4563,4569 ---- @item loose threads Threads often lose their roots due to article expiry, or due to the root already having been read in a previous session, and not displayed in the ! summary buffer. We then typically have many sub-threads that really belong to one thread, but are without connecting roots. These are called loose threads. *************** *** 5578,5584 **** @code{nil}, all the preceding functions will replace all periods (@samp{.}) in the group names with slashes (@samp{/})---which means that the functions will generate hierarchies of directories instead of having ! all the files in the toplevel directory (@file{~/News/alt/andrea-dworkin} instead of @file{~/News/alt.andrea-dworkin}.) This variable is @code{t} by default on most systems. However, for historical reasons, this is @code{nil} on --- 5581,5587 ---- @code{nil}, all the preceding functions will replace all periods (@samp{.}) in the group names with slashes (@samp{/})---which means that the functions will generate hierarchies of directories instead of having ! all the files in the top level directory (@file{~/News/alt/andrea-dworkin} instead of @file{~/News/alt.andrea-dworkin}.) This variable is @code{t} by default on most systems. However, for historical reasons, this is @code{nil} on *************** *** 5601,5607 **** Then just save with @kbd{o}. You'd then read this hierarchy with ephemeral @code{nneething} groups---@kbd{G D} in the group buffer, and ! the toplevel directory as the argument (@file{~/News/}). Then just walk around to the groups/directories with @code{nneething}. --- 5604,5610 ---- Then just save with @kbd{o}. You'd then read this hierarchy with ephemeral @code{nneething} groups---@kbd{G D} in the group buffer, and ! the top level directory as the argument (@file{~/News/}). Then just walk around to the groups/directories with @code{nneething}. *************** *** 6023,6029 **** @menu * Article Highlighting:: You want to make the article look like fruit salad. ! * Article Fontisizing:: Making emphasized text look niced. * Article Hiding:: You also want to make certain info go away. * Article Washing:: Lots of way-neat functions to make life better. * Article Buttons:: Click on URLs, Message-IDs, addresses and the like. --- 6026,6032 ---- @menu * Article Highlighting:: You want to make the article look like fruit salad. ! * Article Fontisizing:: Making emphasized text look nice. * Article Hiding:: You also want to make certain info go away. * Article Washing:: Lots of way-neat functions to make life better. * Article Buttons:: Click on URLs, Message-IDs, addresses and the like. *************** *** 6319,6325 **** It's commonly called ``rot13'' because each letter is rotated 13 positions in the alphabet, e. g. @samp{B} (letter #2) -> @samp{O} (letter #15). It is sometimes referred to as ``Caesar rotate'' because Caesar ! is rumoured to have employed this form of, uh, somewhat weak encryption. @item W t @kindex W t (Summary) --- 6322,6328 ---- It's commonly called ``rot13'' because each letter is rotated 13 positions in the alphabet, e. g. @samp{B} (letter #2) -> @samp{O} (letter #15). It is sometimes referred to as ``Caesar rotate'' because Caesar ! is rumored to have employed this form of, uh, somewhat weak encryption. @item W t @kindex W t (Summary) *************** *** 9627,9633 **** If you want to have Gnus create groups dynamically based on some information in the headers (i.e., do @code{replace-match}-like ! substitions in the group names), you can say things like: @example (any "debian-\\(\\w*\\)@@lists.debian.org" "mail.debian.\\1") --- 9630,9636 ---- If you want to have Gnus create groups dynamically based on some information in the headers (i.e., do @code{replace-match}-like ! substitutions in the group names), you can say things like: @example (any "debian-\\(\\w*\\)@@lists.debian.org" "mail.debian.\\1") *************** *** 11224,11230 **** Agent is @dfn{plugged}. The @dfn{local} machine is the one you're running on, and which isn't ! connected to the net continously. @dfn{Downloading} means fetching things from the net to your local machine. @dfn{Uploading} is doing the opposite. --- 11227,11233 ---- Agent is @dfn{plugged}. The @dfn{local} machine is the one you're running on, and which isn't ! connected to the net continuously. @dfn{Downloading} means fetching things from the net to your local machine. @dfn{Uploading} is doing the opposite. *************** *** 13471,13477 **** * Moderation:: What to do if you're a moderator. * XEmacs Enhancements:: There are more pictures and stuff under XEmacs. * Fuzzy Matching:: What's the big fuzz? ! * Thwarting Email Spam:: A how-to on avoiding unsolited commercial email. * Various Various:: Things that are really various. @end menu --- 13474,13480 ---- * Moderation:: What to do if you're a moderator. * XEmacs Enhancements:: There are more pictures and stuff under XEmacs. * Fuzzy Matching:: What's the big fuzz? ! * Thwarting Email Spam:: A how-to on avoiding unsolicited commercial email. * Various Various:: Things that are really various. @end menu *************** *** 13559,13565 **** @cindex symbolic prefixes Quite a lot of Emacs commands react to the (numeric) prefix. For ! instance, @kbd{C-u 4 C-f} moves point four charaters forward, and @kbd{C-u 9 0 0 I s s p} adds a permanent @code{Subject} substring score rule of 900 to the current article. --- 13562,13568 ---- @cindex symbolic prefixes Quite a lot of Emacs commands react to the (numeric) prefix. For ! instance, @kbd{C-u 4 C-f} moves point four characters forward, and @kbd{C-u 9 0 0 I s s p} adds a permanent @code{Subject} substring score rule of 900 to the current article. *************** *** 14321,14327 **** run @code{gnus-demon-init} to make the changes take hold. To cancel all daemons, you can use the @code{gnus-demon-cancel} function. ! Note that adding daemons can be pretty naughty if you overdo it. Adding functions that scan all news and mail from all servers every two seconds is a sure-fire way of getting booted off any respectable system. So behave. --- 14324,14330 ---- run @code{gnus-demon-init} to make the changes take hold. To cancel all daemons, you can use the @code{gnus-demon-cancel} function. ! Note that adding daemons can be pretty naughty if you over do it. Adding functions that scan all news and mail from all servers every two seconds is a sure-fire way of getting booted off any respectable system. So behave. *************** *** 15010,15016 **** false pretenses. I press @kbd{g} and Gnus merrily informs me that I have 10 new emails. I say ``Golly gee! Happy is me!'' and select the mail group, only to find two pyramid schemes, seven advertisements ! (``New! Miracle tonic for growing full, lustrouos hair on your toes!'') and one mail asking me to repent and find some god. This is annoying. --- 15013,15019 ---- false pretenses. I press @kbd{g} and Gnus merrily informs me that I have 10 new emails. I say ``Golly gee! Happy is me!'' and select the mail group, only to find two pyramid schemes, seven advertisements ! (``New! Miracle tonic for growing full, lustrous hair on your toes!'') and one mail asking me to repent and find some god. This is annoying. *************** *** 15052,15058 **** In addition, many mail spammers talk directly to your @code{smtp} server and do not include your email address explicitly in the @code{To} header. Why they do this is unknown---perhaps it's to thwart this ! twarting scheme? In any case, this is trivial to deal with---you just put anything not addressed to you in the @samp{spam} group by ending your fancy split rule in this way: --- 15055,15061 ---- In addition, many mail spammers talk directly to your @code{smtp} server and do not include your email address explicitly in the @code{To} header. Why they do this is unknown---perhaps it's to thwart this ! thwarting scheme? In any case, this is trivial to deal with---you just put anything not addressed to you in the @samp{spam} group by ending your fancy split rule in this way: *************** *** 15070,15076 **** each unsolicited commercial email---at your leisure. If you are also a lazy net citizen, you will probably prefer complaining ! automatically with the @file{gnus-junk.el} package, availiable FOR FREE at @file{}. Since most e-mail spam is sent automatically, this may reconcile the cosmic balance somewhat. --- 15073,15079 ---- each unsolicited commercial email---at your leisure. If you are also a lazy net citizen, you will probably prefer complaining ! automatically with the @file{gnus-junk.el} package, available FOR FREE at @file{}. Since most e-mail spam is sent automatically, this may reconcile the cosmic balance somewhat. *************** *** 15078,15084 **** This works for me. It allows people an easy way to contact me (they can just press @kbd{r} in the usual way), and I'm not bothered at all with spam. It's a win-win situation. Forging @code{From} headers to point ! to non-existant domains is yucky, in my opinion. @node Various Various --- 15081,15087 ---- This works for me. It allows people an easy way to contact me (they can just press @kbd{r} in the usual way), and I'm not bothered at all with spam. It's a win-win situation. Forging @code{From} headers to point ! to non-existent domains is yucky, in my opinion. @node Various Various *************** *** 15499,15505 **** Vladimir Alexiev---the refcard and reference booklets. @item ! Felix Lee & Jamie Zawinsky---I stole some pieces from the XGnus distribution by Felix Lee and JWZ. @item --- 15502,15508 ---- Vladimir Alexiev---the refcard and reference booklets. @item ! Felix Lee & Jamie Zawinski---I stole some pieces from the XGnus distribution by Felix Lee and JWZ. @item *************** *** 15711,15717 **** * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. ! * Quassia Gnus:: Two times two is four, or Gnus 5.6.9. @end menu These lists are, of course, just @emph{short} overviews of the --- 15714,15720 ---- * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. ! * Quassia Gnus:: Two times two is four, or Gnus 5.6.10. @end menu These lists are, of course, just @emph{short} overviews of the *************** *** 16246,16252 **** @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.9: @itemize @bullet --- 16249,16255 ---- @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.10: @itemize @bullet *************** *** 16316,16322 **** rewrite them to use @code{face-spec-set} instead. @item ! Cancelling now uses the current select method. Symbolic prefix @kbd{a} forces normal posting method. @item --- 16319,16325 ---- rewrite them to use @code{face-spec-set} instead. @item ! Canceling now uses the current select method. Symbolic prefix @kbd{a} forces normal posting method. @item *************** *** 16453,16466 **** nnmh-be-safe means that crossposted articles will be marked as unread. @item ! Orphan score entries dont show on "V t" score trace @item when clearing out data, the cache data should also be reset. @item rewrite gnus-summary-limit-children to be non-recursive to avoid exceeding lisp nesting on huge groups. @item ! expinged articles are counted when computing scores. @item implement gnus-batch-brew-soup @item --- 16456,16469 ---- nnmh-be-safe means that crossposted articles will be marked as unread. @item ! Orphan score entries don't show on "V t" score trace @item when clearing out data, the cache data should also be reset. @item rewrite gnus-summary-limit-children to be non-recursive to avoid exceeding lisp nesting on huge groups. @item ! expunged articles are counted when computing scores. @item implement gnus-batch-brew-soup @item *************** *** 16536,16542 **** the server? @item sort after gathering threads -- make false roots have the ! headers of the oldest orhpan with a 0 article number? @item nndoc groups should inherit the score files of their parents? Also inherit copy prompts and save files. --- 16539,16545 ---- the server? @item sort after gathering threads -- make false roots have the ! headers of the oldest orphan with a 0 article number? @item nndoc groups should inherit the score files of their parents? Also inherit copy prompts and save files. *************** *** 16577,16583 **** on. Eg. -- `(("nnml:" . 1))'. @item easier interface to nnkiboze to create ephemeral groups that ! contaion groups that match a regexp. @item allow newlines in urls, but remove them before using the URL. --- 16580,16586 ---- on. Eg. -- `(("nnml:" . 1))'. @item easier interface to nnkiboze to create ephemeral groups that ! contain groups that match a regexp. @item allow newlines in urls, but remove them before using the URL. *************** *** 16723,16729 **** @item hide-pgp should also hide PGP public key blocks. @item ! Command in the group buffer to respoll process-marked groups. @item `gnus-summary-find-matching' should accept pseudo-"headers" like "body", "head" and "all" --- 16726,16732 ---- @item hide-pgp should also hide PGP public key blocks. @item ! Command in the group buffer to respool process-marked groups. @item `gnus-summary-find-matching' should accept pseudo-"headers" like "body", "head" and "all" *************** *** 16776,16782 **** @item checking for bogus groups should clean topic alists as well. @item ! cancelling articles in foreign groups. @item article number in folded topics isn't properly updated by Xref handling. --- 16779,16785 ---- @item checking for bogus groups should clean topic alists as well. @item ! canceling articles in foreign groups. @item article number in folded topics isn't properly updated by Xref handling. *************** *** 16822,16828 **** server mode command for clearing read marks from all groups from a server. @item ! when following up mulitple articles, include all To, Cc, etc headers from all articles. @item a command for deciding what the total score of the current --- 16825,16831 ---- server mode command for clearing read marks from all groups from a server. @item ! when following up multiple articles, include all To, Cc, etc headers from all articles. @item a command for deciding what the total score of the current *************** *** 16976,16982 **** a way to visually distinguish slave Gnusae from masters. (Whip instead of normal logo?) @item ! Use DJ Bernstein "From " quoting/dequoting, where appliccable. @item Why is hide-citation-maybe and hide-citation different? Also clear up info. --- 16979,16985 ---- a way to visually distinguish slave Gnusae from masters. (Whip instead of normal logo?) @item ! Use DJ Bernstein "From " quoting/dequoting, where applicable. @item Why is hide-citation-maybe and hide-citation different? Also clear up info. *************** *** 17043,17049 **** would show all the messages which are labeled `bug' but not labeled `fixed'. ! One could also immagine the labels being used for highliting, or affect the summary line format. --- 17046,17052 ---- would show all the messages which are labeled `bug' but not labeled `fixed'. ! One could also imagine the labels being used for highlighting, or affect the summary line format. *************** *** 17056,17062 **** - If it is a directory containing numbered files, create an nndir summary buffer. ! - For other directories, create a nneething summaru buffer. - For files matching "\\`From ", create a nndoc/mbox summary. --- 17059,17065 ---- - If it is a directory containing numbered files, create an nndir summary buffer. ! - For other directories, create a nneething summary buffer. - For files matching "\\`From ", create a nndoc/mbox summary. *************** *** 17083,17089 **** decend into ucd? The problem above is that since there is really only one subsection of ! science, shouldn't it prompt you for only decending sci.something? If there was a sci.somethingelse group or section, then it should prompt for sci? first the sci.something? then sci.somethingelse?... --- 17086,17092 ---- decend into ucd? The problem above is that since there is really only one subsection of ! science, shouldn't it prompt you for only descending sci.something? If there was a sci.somethingelse group or section, then it should prompt for sci? first the sci.something? then sci.somethingelse?... *************** *** 17339,17345 **** `x' should retain any sortings that have been performed. @item ! allow the user to specify the presedence of the secondary marks. Also allow them to be displayed separately. @item --- 17342,17348 ---- `x' should retain any sortings that have been performed. @item ! allow the user to specify the precedence of the secondary marks. Also allow them to be displayed separately. @item *************** *** 18910,18916 **** @node Score File Syntax @subsection Score File Syntax ! Score files are meant to be easily parsable, but yet extremely mallable. It was decided that something that had the same read syntax as an Emacs Lisp list would fit that spec. --- 18913,18919 ---- @node Score File Syntax @subsection Score File Syntax ! Score files are meant to be easily parseable, but yet extremely mallable. It was decided that something that had the same read syntax as an Emacs Lisp list would fit that spec. *** pub/qgnus/texi/message.texi Fri May 1 21:57:34 1998 --- qgnus/texi/message.texi Mon Jun 1 04:30:58 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.9 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.10 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Message 5.6.9 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Message 5.6.10 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 83,89 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.6.9. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 83,89 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.6.10. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Wed Apr 29 22:48:15 1998 --- qgnus/texi/ChangeLog Mon Jun 1 04:30:58 1998 *************** *** 1,3 **** --- 1,7 ---- + Tue May 19 02:44:31 1998 Mike Pullen + + * gnus.texi.orig: Typo fixes. + Wed Apr 29 21:52:28 1998 Lars Magne Ingebrigtsen * gnus.texi (Key Index): Untabified.