*** pub/rgnus/lisp/gnus-group.el Wed Mar 19 00:04:12 1997 --- rgnus/lisp/gnus-group.el Sat Mar 22 15:55:08 1997 *************** *** 3201,3208 **** "Address: " (mapcar (lambda (server) (list server)) gnus-secondary-servers))) ! ;; We got a server name, so we find the method. ! (gnus-server-to-method how))))) (gnus-browse-foreign-server method)) (defun gnus-group-set-info (info &optional method-only-group part) --- 3201,3208 ---- "Address: " (mapcar (lambda (server) (list server)) gnus-secondary-servers))) ! ;; We got a server name. ! how)))) (gnus-browse-foreign-server method)) (defun gnus-group-set-info (info &optional method-only-group part) *** pub/rgnus/lisp/gnus-srvr.el Mon Mar 17 17:40:24 1997 --- rgnus/lisp/gnus-srvr.el Sat Mar 22 15:55:08 1997 *************** *** 530,537 **** ["Select" gnus-browse-read-group t] ["Next" gnus-browse-next-group t] ["Prev" gnus-browse-next-group t] ! ["Exit" gnus-browse-exit t] ! )) (run-hooks 'gnus-browse-menu-hook))) (defvar gnus-browse-current-method nil) --- 530,536 ---- ["Select" gnus-browse-read-group t] ["Next" gnus-browse-next-group t] ["Prev" gnus-browse-next-group t] ! ["Exit" gnus-browse-exit t])) (run-hooks 'gnus-browse-menu-hook))) (defvar gnus-browse-current-method nil) *************** *** 543,548 **** --- 542,549 ---- "Browse the server METHOD." (setq gnus-browse-current-method method) (setq gnus-browse-return-buffer return-buffer) + (when (stringp method) + (setq method (gnus-server-to-method method))) (let ((gnus-select-method method) groups group) (gnus-message 5 "Connecting to %s..." (nth 1 method)) *** pub/rgnus/lisp/gnus-sum.el Thu Mar 20 17:38:42 1997 --- rgnus/lisp/gnus-sum.el Sat Mar 22 15:55:09 1997 *************** *** 6667,6686 **** (set-buffer copy-buf) ;; First put the article in the destination group. (gnus-request-article-this-buffer article gnus-newsgroup-name) ! (setq art-group ! (gnus-request-accept-article ! to-newsgroup select-method (not articles))) ! (setq new-xref (concat new-xref " " (car art-group) ! ":" (cdr art-group))) ! ;; Now we have the new Xrefs header, so we insert ! ;; it and replace the new article. ! (nnheader-replace-header "Xref" new-xref) ! (gnus-request-replace-article ! (cdr art-group) to-newsgroup (current-buffer)) ! art-group))))) ! (if (not art-group) ! (gnus-message 1 "Couldn't %s article %s" ! (cadr (assq action names)) article) (let* ((entry (or (gnus-gethash (car art-group) gnus-newsrc-hashtb) --- 6667,6692 ---- (set-buffer copy-buf) ;; First put the article in the destination group. (gnus-request-article-this-buffer article gnus-newsgroup-name) ! (when (consp (setq art-group ! (gnus-request-accept-article ! to-newsgroup select-method (not articles)))) ! (setq new-xref (concat new-xref " " (car art-group) ! ":" (cdr art-group))) ! ;; Now we have the new Xrefs header, so we insert ! ;; it and replace the new article. ! (nnheader-replace-header "Xref" new-xref) ! (gnus-request-replace-article ! (cdr art-group) to-newsgroup (current-buffer)) ! art-group)))))) ! (cond ! ((not art-group) ! (gnus-message 1 "Couldn't %s article %s" ! (cadr (assq action names)) article)) ! ((and (eq art-group 'junk) ! (eq action 'move)) ! (gnus-summary-mark-article article gnus-canceled-mark) ! (gnus-message 4 "Deleted article %s" article)) ! (t (let* ((entry (or (gnus-gethash (car art-group) gnus-newsrc-hashtb) *************** *** 6755,6761 **** (gnus-summary-goto-subject article) (when (eq action 'move) ! (gnus-summary-mark-article article gnus-canceled-mark))) (gnus-summary-remove-process-mark article)) ;; Re-activate all groups that have been moved to. (while to-groups --- 6761,6767 ---- (gnus-summary-goto-subject article) (when (eq action 'move) ! (gnus-summary-mark-article article gnus-canceled-mark)))) (gnus-summary-remove-process-mark article)) ;; Re-activate all groups that have been moved to. (while to-groups *************** *** 7068,7074 **** ;;; Respooling ! (defun gnus-summary-respool-query () "Query where the respool algorithm would put this article." (interactive) (gnus-set-global-variables) --- 7074,7080 ---- ;;; Respooling ! (defun gnus-summary-respool-query (&optional silent) "Query where the respool algorithm would put this article." (interactive) (gnus-set-global-variables) *************** *** 7078,7085 **** (set-buffer gnus-original-article-buffer) (save-restriction (message-narrow-to-head) ! (message "This message would go to %s" ! (mapconcat 'car (nnmail-article-group 'identity) ", ")))))) ;; Summary marking commands. --- 7084,7096 ---- (set-buffer gnus-original-article-buffer) (save-restriction (message-narrow-to-head) ! (let ((groups (nnmail-article-group 'identity))) ! (unless silent ! (if groups ! (message "This message would go to %s" ! (mapconcat 'car groups ", ")) ! (message "This message would go to no groups")) ! groups)))))) ;; Summary marking commands. *** pub/rgnus/lisp/gnus.el Thu Mar 20 17:38:42 1997 --- rgnus/lisp/gnus.el Sat Mar 22 15:55:10 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.33" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.34" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Wed Mar 19 21:00:23 1997 --- rgnus/lisp/message.el Sat Mar 22 15:55:10 1997 *************** *** 113,119 **** :group 'message-buffers :type 'function) - ;;;###autoload (defcustom message-fcc-handler-function 'message-output "*A function called to save outgoing articles. This function will be called with the name of the file to store the --- 113,118 ---- *************** *** 2461,2467 **** (defun message-make-from () "Make a From header." ! (let* ((login (message-make-address)) (fullname (or (and (boundp 'user-full-name) user-full-name) --- 2460,2467 ---- (defun message-make-from () "Make a From header." ! (let* ((style message-from-style) ! (login (message-make-address)) (fullname (or (and (boundp 'user-full-name) user-full-name) *************** *** 2471,2481 **** (save-excursion (message-set-work-buffer) (cond ! ((or (null message-from-style) (equal fullname "")) (insert login)) ! ((or (eq message-from-style 'angles) ! (and (not (eq message-from-style 'parens)) ;; Use angles if no quoting is needed, or if parens would ;; need quoting too. (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname)) --- 2471,2481 ---- (save-excursion (message-set-work-buffer) (cond ! ((or (null style) (equal fullname "")) (insert login)) ! ((or (eq style 'angles) ! (and (not (eq style 'parens)) ;; Use angles if no quoting is needed, or if parens would ;; need quoting too. (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname)) *** pub/rgnus/lisp/nnfolder.el Thu Mar 20 17:38:43 1997 --- rgnus/lisp/nnfolder.el Sat Mar 22 15:55:10 1997 *************** *** 682,687 **** --- 682,689 ---- (< maxid 2))) (goto-char (point-max)) (unless (re-search-backward marker nil t) + (goto-char (point-min))) + (when (nnmail-search-unix-mail-delim) (goto-char (point-min)))) ;; Keep track of the active number on our own, and insert it back *** pub/rgnus/lisp/nnmail.el Wed Mar 19 21:23:22 1997 --- rgnus/lisp/nnmail.el Sat Mar 22 15:55:11 1997 *************** *** 393,399 **** (defcustom nnmail-split-abbrev-alist '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc") ! (mail . "mailer-daemon\\|postmaster\\|uucp")) "Alist of abbreviations allowed in `nnmail-split-fancy'." :group 'nnmail-split :type '(repeat (cons :format "%v" symbol regexp))) --- 393,401 ---- (defcustom nnmail-split-abbrev-alist '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc") ! (mail . "mailer-daemon\\|postmaster\\|uucp") ! (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc") ! (from . "from\\|sender\\|resent-from")) "Alist of abbreviations allowed in `nnmail-split-fancy'." :group 'nnmail-split :type '(repeat (cons :format "%v" symbol regexp))) *** pub/rgnus/lisp/nnml.el Wed Mar 19 21:00:25 1997 --- rgnus/lisp/nnml.el Sat Mar 22 15:55:11 1997 *************** *** 325,332 **** (and last (nnml-save-nov)))) (and (nnmail-activate 'nnml) ! (setq result (car (nnml-save-mail ! (nnmail-article-group 'nnml-active-number)))) (when last (nnmail-save-active nnml-group-alist nnml-active-file) (when nnmail-cache-accepted-message-ids --- 325,333 ---- (and last (nnml-save-nov)))) (and (nnmail-activate 'nnml) ! (if (not (setq result (nnmail-article-group 'nnml-active-number))) ! (setq result 'junk) ! (setq result (car (nnml-save-mail result)))) (when last (nnmail-save-active nnml-group-alist nnml-active-file) (when nnmail-cache-accepted-message-ids *** pub/rgnus/lisp/ChangeLog Thu Mar 20 17:38:40 1997 --- rgnus/lisp/ChangeLog Sat Mar 22 15:55:08 1997 *************** *** 1,3 **** --- 1,38 ---- + Sat Mar 22 15:42:53 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.34 is released. + + Sat Mar 22 01:37:00 1997 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-move-article): Understand 'junk. + + * nnml.el (nnml-request-accept-article): Return 'junk when legal. + + * gnus-sum.el (gnus-summary-respool-query): Message better, and + return right value. + + * nnmail.el (nnmail-split-abbrev-alist): New `to' and `from' + abbrevs. + + Wed Mar 19 19:36:25 1997 Dewey M. Sasser + + * message.el (message-make-from): Changed so that + message-from-style value is captured from message buffer instead + of temp buffer. + + Sat Mar 22 00:47:39 1997 Lars Magne Ingebrigtsen + + * gnus-srvr.el (gnus-browse-foreign-server): Understand server + names. + + * gnus-group.el (gnus-group-browse-foreign-server): Down methodize + the server. + + Thu Mar 20 22:49:16 1997 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-read-folder): Do checking if there are new + articles after the last nnfolder marker. + Thu Mar 20 17:33:54 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.33 is released. *** pub/rgnus/texi/gnus.texi Thu Mar 20 17:38:45 1997 --- rgnus/texi/gnus.texi Sat Mar 22 15:55:13 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.33 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.34 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.33 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.34 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.33. @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.34. @end ifinfo *************** *** 8911,8917 **** (any "procmail@@informatik\\.rwth-aachen\\.de" "procmail.list") (any "SmartList@@informatik\\.rwth-aachen\\.de" "SmartList.list") ;; People... ! (any "larsi@@ifi\\.uio\\.no" "people.Lars Magne Ingebrigtsen")) ;; Unmatched mail goes to the catch all group. "misc.misc") @end lisp --- 8911,8917 ---- (any "procmail@@informatik\\.rwth-aachen\\.de" "procmail.list") (any "SmartList@@informatik\\.rwth-aachen\\.de" "SmartList.list") ;; People... ! (any "larsi@@ifi\\.uio\\.no" "people.Lars_Magne_Ingebrigtsen")) ;; Unmatched mail goes to the catch all group. "misc.misc") @end lisp *** pub/rgnus/texi/message.texi Thu Mar 20 17:38:45 1997 --- rgnus/texi/message.texi Sat Mar 22 15:55:13 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.33 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.34 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.33 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.34 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.33. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.34. Message is distributed with the Gnus distribution bearing the same version number as this manual has.