*** pub/dgnus/lisp/gnus-msg.el Sun Oct 15 03:09:55 1995 --- dgnus/lisp/gnus-msg.el Mon Oct 16 12:38:05 1995 *************** *** 555,560 **** --- 555,562 ---- If given a prefix, and the group is a foreign group, this function will attempt to use the foreign server to post the article." (interactive "P") + (or gnus-current-select-method + (setq gnus-current-select-method gnus-select-method)) (let* ((case-fold-search nil) (server-running (gnus-server-opened gnus-current-select-method)) (reply gnus-article-reply) *** pub/dgnus/lisp/gnus-score.el Sun Oct 15 03:09:55 1995 --- dgnus/lisp/gnus-score.el Sun Oct 15 08:23:33 1995 *************** *** 613,619 **** (gnus-score-load-file file)) files)))) (and eval (not global) (eval eval)) ! (setq gnus-scores-exclude-files exclude-files) (if (not local) () (save-excursion --- 613,620 ---- (gnus-score-load-file file)) files)))) (and eval (not global) (eval eval)) ! (setq gnus-scores-exclude-files ! (append exclude-files gnus-scores-exclude-files)) (if (not local) () (save-excursion *************** *** 785,790 **** --- 786,792 ---- ;; PLM: probably this is not the best place to clear orphan-score (setq gnus-orphan-score nil) (setq gnus-scores-articles nil) + (setq gnus-scores-exclude-files nil) ;; Load the score files. (while score-files (if (stringp (car score-files)) *** pub/dgnus/lisp/gnus.el Sun Oct 15 03:09:57 1995 --- dgnus/lisp/gnus.el Thu Oct 19 09:14:19 1995 *************** *** 1349,1355 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.8" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1349,1355 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "Gnus v5.0.9" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 1613,1619 **** (autoload 'gnus-mail-reply-using-mhe "gnus-mh") (autoload 'gnus-mail-forward-using-mhe "gnus-mh") (autoload 'gnus-mail-other-window-using-mhe "gnus-mh") ! (autoload 'gnus-summary-save-in-folder "gnus-mh") (autoload 'gnus-summary-save-article-folder "gnus-mh") (autoload 'gnus-Folder-save-name "gnus-mh") (autoload 'gnus-folder-save-name "gnus-mh") --- 1613,1619 ---- (autoload 'gnus-mail-reply-using-mhe "gnus-mh") (autoload 'gnus-mail-forward-using-mhe "gnus-mh") (autoload 'gnus-mail-other-window-using-mhe "gnus-mh") ! (autoload 'gnus-summary-save-in-folder "gnus-mh" nil t) (autoload 'gnus-summary-save-article-folder "gnus-mh") (autoload 'gnus-Folder-save-name "gnus-mh") (autoload 'gnus-folder-save-name "gnus-mh") *************** *** 2468,2474 **** perc out) (while (< i 3) ! (or (zerop (nth i elem)) (progn (setq perc (/ (* 1.0 (nth 0 elem)) total)) (setq out (cons (if (eq pbuf (nth i types)) --- 2468,2475 ---- perc out) (while (< i 3) ! (or (not (numberp (nth i elem))) ! (zerop (nth i elem)) (progn (setq perc (/ (* 1.0 (nth 0 elem)) total)) (setq out (cons (if (eq pbuf (nth i types)) *************** *** 2830,2835 **** --- 2831,2840 ---- (setq name (concat leaf "<" (int-to-string (setq num (1+ num))) ">"))) name)) + (defun gnus-ephemeral-group-p (group) + "Say whether GROUP is ephemeral or not." + (assoc 'quit-config (gnus-find-method-for-group group))) + ;;; List and range functions (defun gnus-last-element (list) *************** *** 9974,9980 **** (gnus-set-global-variables) (gnus-summary-catchup all quietly nil 'fast) ;; Select next newsgroup or exit. ! (if (eq gnus-auto-select-next 'quietly) (gnus-summary-next-group nil) (gnus-summary-exit))) --- 9979,9986 ---- (gnus-set-global-variables) (gnus-summary-catchup all quietly nil 'fast) ;; Select next newsgroup or exit. ! (if (and (eq gnus-auto-select-next 'quietly) ! (not (gnus-ephemeral-group-p gnus-newsgroup-name))) (gnus-summary-next-group nil) (gnus-summary-exit))) *************** *** 10224,10229 **** --- 10230,10236 ---- gnus-extract-address-components (mail-header-from header)))) (concat (or (car extract) (cdr extract)) + "\r" (int-to-string (mail-header-number header)) "\r" (mail-header-subject header)))) 'gnus-thread-sort-by-author) reverse)) *************** *** 10243,10248 **** --- 10250,10256 ---- (mail-header-from header)))) (concat (downcase (gnus-simplify-subject (gnus-summary-subject-string) t)) + "\r" (int-to-string (mail-header-number header)) "\r" (or (car extract) (cdr extract))))) 'gnus-thread-sort-by-subject) reverse)) *************** *** 13955,13960 **** --- 13963,13972 ---- (search-forward "+") (forward-char -1) (insert "\\"))) + ;; Translate ".all" to "[./].*"; + (while (search-forward ".all" nil t) + (replace-match "[./].*" t t)) + (goto-char (point-min)) ;; Translate "all" to ".*". (while (search-forward "all" nil t) (replace-match ".*" t t)) *** pub/dgnus/lisp/nntp.el Sun Oct 15 03:09:58 1995 --- dgnus/lisp/nntp.el Wed Oct 18 19:04:59 1995 *************** *** 982,988 **** (save-excursion (set-buffer nntp-server-buffer) (goto-char (point-min)) ! (and (looking-at "[23]") (setq nntp-server-xover (car commands)))) (setq commands (cdr commands))) ;; If none of the commands worked, we disable XOVER. (if (eq nntp-server-xover 'try) --- 982,995 ---- (save-excursion (set-buffer nntp-server-buffer) (goto-char (point-min)) ! (and (looking-at "[23]") ; No error message. ! ;; We also have to look at the lines. Some buggy ! ;; servers give back simple lines with just the ! ;; article number. How... helpful. ! (progn ! (forward-line 1) ! (looking-at "[0-9]+\t...")) ; More text after number. ! (setq nntp-server-xover (car commands)))) (setq commands (cdr commands))) ;; If none of the commands worked, we disable XOVER. (if (eq nntp-server-xover 'try) *************** *** 1184,1193 **** (car list)) (defun nntp-possibly-change-server (newsgroup server) ! ;; We see whether it is necessary to change newsgroup. ! (and newsgroup ! (not (equal newsgroup nntp-current-group)) ! (nntp-request-group newsgroup server))) (defun nntp-try-list-active (group) (nntp-list-active-group group) --- 1191,1204 ---- (car list)) (defun nntp-possibly-change-server (newsgroup server) ! ;; We see whether it is necessary to change the newsgroup. ! (and newsgroup ! (progn ! (not (equal newsgroup nntp-current-group)) ! (nntp-request-group newsgroup server))) ! (and server ! (or (nntp-server-opened server) ! (nntp-open-server server)))) (defun nntp-try-list-active (group) (nntp-list-active-group group) *** pub/dgnus/lisp/ChangeLog Sun Oct 15 03:10:03 1995 --- dgnus/lisp/ChangeLog Wed Oct 18 19:57:55 1995 *************** *** 1,5 **** --- 1,34 ---- + Wed Oct 18 19:09:10 1995 Lars Ingebrigtsen + + * gnus.el (gnus-summary-catchup-and-exit): Do the right thing on + exit from ephemeral groups. + (gnus-ephemeral-group-p): New function. + (gnus-score-find-bnews): Translate ".all" to "\\..*". + (gnus-summary-sort-by-subject): Use article numbers as the + secondary sort keys. + + Sat Oct 14 01:41:11 1995 Sudish Joseph + + * nntp.el (nntp-possibly-change-server): Open SERVER even if + NEWSGROUP is nil. + + Mon Oct 16 11:53:04 1995 Lars Ingebrigtsen + + * nntp.el (nntp-send-xover-command): Check for bogus results from + the XOVER command. + + Sun Oct 15 06:57:03 1995 Lars Ingebrigtsen + + * gnus.el (gnus-windows-old-to-new): Would bug out on bogus window + configs. + + * gnus-score.el (gnus-score-load-file): Add all 'excude-files from + all files. + Sat Oct 14 11:58:47 1995 Lars Ingebrigtsen + * gnus.el: 5.0.8 is released. + * gnus.el (gnus-summary-remove-lines-marked-with): Try to go to the article from whence we came. *************** *** 9,15 **** Sat Oct 14 01:53:57 1995 Lars Magne Ingebrigtsen ! * nnmh.el (nnmh-request-list): Stil wouldn't recurse properly. Fri Oct 13 10:37:57 1995 Lars Ingebrigtsen --- 38,44 ---- Sat Oct 14 01:53:57 1995 Lars Magne Ingebrigtsen ! * nnmh.el (nnmh-request-list): Still wouldn't recurse properly. Fri Oct 13 10:37:57 1995 Lars Ingebrigtsen