*** pub/rgnus/lisp/gnus-art.el Fri Mar 14 20:17:15 1997 --- rgnus/lisp/gnus-art.el Tue Mar 18 18:01:55 1997 *************** *** 1018,1023 **** --- 1018,1034 ---- (while (re-search-forward "\n\n\n+" nil t) (replace-match "\n\n" t t))))) + (defun article-strip-leading-space () + "Remove all white space from the beginning of the lines in the article." + (interactive) + (save-excursion + (let ((inhibit-point-motion-hooks t) + buffer-read-only) + (goto-char (point-min)) + (search-forward "\n\n" nil t) + (while (re-search-forward "^[ \t]+" nil t) + (replace-match "" t t))))) + (defun article-strip-blank-lines () "Strip leading, trailing and multiple blank lines." (interactive) *************** *** 1669,1674 **** --- 1680,1686 ---- article-remove-trailing-blank-lines article-strip-leading-blank-lines article-strip-multiple-blank-lines + article-strip-leading-space article-strip-blank-lines article-date-local article-date-original *** pub/rgnus/lisp/gnus-group.el Mon Mar 17 17:40:24 1997 --- rgnus/lisp/gnus-group.el Tue Mar 18 18:01:56 1997 *************** *** 1454,1459 **** --- 1454,1460 ---- ;; Selecting groups. + (defvar gnus-auto-select-next) (defun gnus-group-read-group (&optional all no-article group) "Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become *************** *** 1464,1491 **** (interactive "P") (let ((no-display (eq all 0)) (group (or group (gnus-group-group-name))) ! number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) ! (setq marked (gnus-info-marks ! (nth 2 (setq entry (gnus-gethash ! group gnus-newsrc-hashtb))))) ! ;; This group might be a dead group. In that case we have to get ! ;; the number of unread articles from `gnus-active-hashtb'. ! (setq number ! (cond ((numberp all) all) ! (entry (car entry)) ! ((setq active (gnus-active group)) ! (- (1+ (cdr active)) (car active))))) ! (gnus-summary-read-group ! group (or all (and (numberp number) ! (zerop (+ number (gnus-range-length ! (cdr (assq 'tick marked))) ! (gnus-range-length ! (cdr (assq 'dormant marked))))))) ! no-article nil no-display))) (defun gnus-group-select-group (&optional all) "Select this newsgroup. --- 1465,1505 ---- (interactive "P") (let ((no-display (eq all 0)) (group (or group (gnus-group-group-name))) ! number active marked entry selected did-select) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) ! ;; We loop here in case all articles in the group we try to select ! ;; is scored out and we want to go to the next group. ! (while (not selected) ! (setq marked (gnus-info-marks ! (nth 2 (setq entry (gnus-gethash ! group gnus-newsrc-hashtb))))) ! ;; This group might be a dead group. In that case we have to get ! ;; the number of unread articles from `gnus-active-hashtb'. ! (setq number ! (cond ((numberp all) all) ! (entry (car entry)) ! ((setq active (gnus-active group)) ! (- (1+ (cdr active)) (car active))))) ! (setq did-select ! (let ((gnus-auto-select-next nil)) ! (gnus-summary-read-group ! group ! (or all (and (numberp number) ! (zerop ! (+ number ! (gnus-range-length ! (cdr (assq 'tick marked))) ! (gnus-range-length ! (cdr (assq 'dormant marked))))))) ! no-article nil no-display))) ! (if (and (not did-select) ! (eq gnus-auto-select-next 'quietly)) ! (setq group (gnus-group-group-name)) ! (setq selected t))) ! did-select)) (defun gnus-group-select-group (&optional all) "Select this newsgroup. *************** *** 1563,1571 **** (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 --- 1577,1585 ---- (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/rgnus/lisp/gnus-msg.el Mon Mar 17 17:40:24 1997 --- rgnus/lisp/gnus-msg.el Tue Mar 18 18:01:56 1997 *************** *** 308,320 **** (message-supersede) (push `((lambda () - (gnus-cache-possibly-remove-article ,article nil nil nil t))) - message-send-actions) - (push - `((lambda () (when (buffer-name (get-buffer ,gnus-summary-buffer)) (save-excursion (set-buffer (get-buffer ,gnus-summary-buffer)) (gnus-summary-mark-as-read ,article gnus-canceled-mark))))) message-send-actions)))) --- 308,317 ---- (message-supersede) (push `((lambda () (when (buffer-name (get-buffer ,gnus-summary-buffer)) (save-excursion (set-buffer (get-buffer ,gnus-summary-buffer)) + (gnus-cache-possibly-remove-article ,article nil nil nil t) (gnus-summary-mark-as-read ,article gnus-canceled-mark))))) message-send-actions)))) *************** *** 726,732 **** (gnus-alive-p)) ;; This mail group doesn't have a `to-list', so we add one ;; here. Magic! ! (gnus-group-add-parameter group (cons 'to-list to-address))))) (defun gnus-put-message () "Put the current message in some group and return to Gnus." --- 723,731 ---- (gnus-alive-p)) ;; This mail group doesn't have a `to-list', so we add one ;; here. Magic! ! (when (gnus-y-or-n-p ! (format "Do you want to add this as `to-list': %s " to-address)) ! (gnus-group-add-parameter group (cons 'to-list to-address)))))) (defun gnus-put-message () "Put the current message in some group and return to Gnus." *** pub/rgnus/lisp/gnus-sum.el Tue Mar 18 00:43:27 1997 --- rgnus/lisp/gnus-sum.el Tue Mar 18 18:01:58 1997 *************** *** 1312,1318 **** "t" gnus-article-remove-trailing-blank-lines "l" gnus-article-strip-leading-blank-lines "m" gnus-article-strip-multiple-blank-lines ! "a" gnus-article-strip-blank-lines) (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map) "v" gnus-version --- 1312,1319 ---- "t" gnus-article-remove-trailing-blank-lines "l" gnus-article-strip-leading-blank-lines "m" gnus-article-strip-multiple-blank-lines ! "a" gnus-article-strip-blank-lines ! "s" gnus-article-strip-leading-space) (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map) "v" gnus-version *************** *** 1514,1520 **** ["Leading" gnus-article-strip-leading-blank-lines t] ["Multiple" gnus-article-strip-multiple-blank-lines t] ["Trailing" gnus-article-remove-trailing-blank-lines t] ! ["All of the above" gnus-article-strip-blank-lines t]) ["Overstrike" gnus-article-treat-overstrike t] ["Emphasis" gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] --- 1515,1522 ---- ["Leading" gnus-article-strip-leading-blank-lines t] ["Multiple" gnus-article-strip-multiple-blank-lines t] ["Trailing" gnus-article-remove-trailing-blank-lines t] ! ["All of the above" gnus-article-strip-blank-lines t] ! ["Leading space" gnus-article-strip-leading-space t]) ["Overstrike" gnus-article-treat-overstrike t] ["Emphasis" gnus-article-emphasize t] ["Word wrap" gnus-article-fill-cited-article t] *** pub/rgnus/lisp/gnus.el Tue Mar 18 00:43:28 1997 --- rgnus/lisp/gnus.el Tue Mar 18 18:01:58 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.28" "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.29" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/nnbabyl.el Fri Mar 7 23:51:29 1997 --- rgnus/lisp/nnbabyl.el Tue Mar 18 18:01:58 1997 *************** *** 333,339 **** (save-excursion (while (re-search-backward "^X-Gnus-Newsgroup: " beg t) (delete-region (point) (progn (forward-line 1) (point))))) - (nnmail-cache-insert (nnmail-fetch-field "message-id")) (setq result (car (nnbabyl-save-mail (if (stringp group) (list (cons group (nnbabyl-active-number group))) --- 333,338 ---- *************** *** 344,350 **** (goto-char (match-end 0)) (insert-buffer-substring buf) (when last - (nnmail-cache-insert (nnmail-fetch-field "message-id")) (save-buffer) (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file)) result)))) --- 343,348 ---- *** pub/rgnus/lisp/nnfolder.el Mon Mar 17 17:40:28 1997 --- rgnus/lisp/nnfolder.el Tue Mar 18 18:01:59 1997 *************** *** 225,231 **** (let ((bufs nnfolder-buffer-alist)) (save-excursion (while bufs ! (if (not (buffer-name (nth 1 (car bufs)))) (setq nnfolder-buffer-alist (delq (car bufs) nnfolder-buffer-alist)) (set-buffer (nth 1 (car bufs))) --- 225,231 ---- (let ((bufs nnfolder-buffer-alist)) (save-excursion (while bufs ! (if (not (buffer-live-p (nth 1 (car bufs)))) (setq nnfolder-buffer-alist (delq (car bufs) nnfolder-buffer-alist)) (set-buffer (nth 1 (car bufs))) *************** *** 246,252 **** (equal group nnfolder-current-group)) (let ((inf (assoc group nnfolder-buffer-alist))) (when inf ! (when nnfolder-current-group (push (list nnfolder-current-group nnfolder-current-buffer) nnfolder-buffer-alist)) (setq nnfolder-buffer-alist --- 246,253 ---- (equal group nnfolder-current-group)) (let ((inf (assoc group nnfolder-buffer-alist))) (when inf ! (when (and nnfolder-current-group ! nnfolder-current-buffer) (push (list nnfolder-current-group nnfolder-current-buffer) nnfolder-buffer-alist)) (setq nnfolder-buffer-alist *************** *** 374,380 **** (forward-line -1) (while (re-search-backward (concat "^" nnfolder-article-marker) nil t) (delete-region (point) (progn (forward-line 1) (point)))) - (nnmail-cache-insert (nnmail-fetch-field "message-id")) (setq result (car (nnfolder-save-mail (if (stringp group) --- 375,380 ---- *************** *** 384,391 **** (when last (save-excursion (nnfolder-possibly-change-folder (or (caar art-group) group)) ! (nnfolder-save-buffer) ! (nnmail-cache-close)))) (nnmail-save-active nnfolder-group-alist nnfolder-active-file) (unless result (nnheader-report 'nnfolder "Couldn't store article")) --- 384,390 ---- (when last (save-excursion (nnfolder-possibly-change-folder (or (caar art-group) group)) ! (nnfolder-save-buffer)))) (nnmail-save-active nnfolder-group-alist nnfolder-active-file) (unless result (nnheader-report 'nnfolder "Couldn't store article")) *** pub/rgnus/lisp/nnmbox.el Fri Mar 7 23:51:32 1997 --- rgnus/lisp/nnmbox.el Tue Mar 18 18:01:59 1997 *************** *** 304,310 **** (forward-line -1) (while (re-search-backward "^X-Gnus-Newsgroup: " nil t) (delete-region (point) (progn (forward-line 1) (point)))) - (nnmail-cache-insert (nnmail-fetch-field "message-id")) (setq result (nnmbox-save-mail (if (stringp group) (list (cons group (nnmbox-active-number group))) --- 304,309 ---- *************** *** 314,320 **** (goto-char (point-max)) (insert-buffer-substring buf) (when last - (nnmail-cache-close) (nnmail-save-active nnmbox-group-alist nnmbox-active-file) (save-buffer)))) (car result))) --- 313,318 ---- *** pub/rgnus/lisp/nnmh.el Sun Mar 9 18:41:38 1997 --- rgnus/lisp/nnmh.el Tue Mar 18 18:02:00 1997 *************** *** 290,309 **** (deffoo nnmh-request-accept-article (group &optional server last noinsert) (nnmh-possibly-change-directory group server) (nnmail-check-syntax) ! (nnmail-cache-insert (nnmail-fetch-field "message-id")) ! (prog1 ! (if (stringp group) ! (and ! (nnmail-activate 'nnmh) ! (car (nnmh-save-mail ! (list (cons group (nnmh-active-number group))) ! noinsert))) ! (and ! (nnmail-activate 'nnmh) ! (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number) ! noinsert)))) ! (when last ! (nnmail-cache-close)))) (deffoo nnmh-request-replace-article (article group buffer) (nnmh-possibly-change-directory group) --- 290,305 ---- (deffoo nnmh-request-accept-article (group &optional server last noinsert) (nnmh-possibly-change-directory group server) (nnmail-check-syntax) ! (if (stringp group) ! (and ! (nnmail-activate 'nnmh) ! (car (nnmh-save-mail ! (list (cons group (nnmh-active-number group))) ! noinsert))) ! (and ! (nnmail-activate 'nnmh) ! (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number) ! noinsert))))) (deffoo nnmh-request-replace-article (article group buffer) (nnmh-possibly-change-directory group) *** pub/rgnus/lisp/nnml.el Mon Mar 17 17:40:29 1997 --- rgnus/lisp/nnml.el Tue Mar 18 18:02:00 1997 *************** *** 313,319 **** (nnml-possibly-change-directory group server) (nnmail-check-syntax) (let (result) - (nnmail-cache-insert (nnmail-fetch-field "message-id")) (if (stringp group) (and (nnmail-activate 'nnml) --- 313,318 ---- *************** *** 328,334 **** (nnmail-article-group 'nnml-active-number)))) (when last (nnmail-save-active nnml-group-alist nnml-active-file) - (nnmail-cache-close) (nnml-save-nov)))) result)) --- 327,332 ---- *************** *** 682,692 **** (nnml-open-server (or (nnoo-current-server 'nnml) "")) (setq nnml-directory (expand-file-name nnml-directory)) ;; Recurse down the directories. ! (nnml-generate-nov-databases-1 nnml-directory) ;; Save the active file. (nnmail-save-active nnml-group-alist nnml-active-file)) ! (defun nnml-generate-nov-databases-1 (dir &optional seen) "Regenerate the NOV database in DIR." (interactive "DRegenerate NOV in: ") (setq dir (file-name-as-directory dir)) --- 680,690 ---- (nnml-open-server (or (nnoo-current-server 'nnml) "")) (setq nnml-directory (expand-file-name nnml-directory)) ;; Recurse down the directories. ! (nnml-generate-nov-databases-1 nnml-directory nil t) ;; Save the active file. (nnmail-save-active nnml-group-alist nnml-active-file)) ! (defun nnml-generate-nov-databases-1 (dir &optional seen no-active) "Regenerate the NOV database in DIR." (interactive "DRegenerate NOV in: ") (setq dir (file-name-as-directory dir)) *************** *** 706,712 **** (when files (funcall nnml-generate-active-function dir) ;; Generate the nov file. ! (nnml-generate-nov-file dir files))))) (defvar files) (defun nnml-generate-active-info (dir) --- 704,712 ---- (when files (funcall nnml-generate-active-function dir) ;; Generate the nov file. ! (nnml-generate-nov-file dir files) ! (unless no-active ! (nnmail-save-active nnml-group-alist nnml-active-file)))))) (defvar files) (defun nnml-generate-active-info (dir) *** pub/rgnus/lisp/ChangeLog Tue Mar 18 00:43:26 1997 --- rgnus/lisp/ChangeLog Tue Mar 18 18:01:54 1997 *************** *** 1,3 **** --- 1,42 ---- + Tue Mar 18 17:56:26 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.29 is released. + + Tue Mar 18 14:29:49 1997 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-read-ephemeral-group): Would set virt + ser too much. + (gnus-group-read-group): Return right value. + + * nnml.el (nnml-generate-nov-databases-1): Save active. + + * gnus-msg.el (gnus-summary-supersede-article): Place point in the + with buffer. + (gnus-inews-add-to-address): Prompt before adding. + + * gnus-art.el (article-strip-leading-space): Not a new command + and keystroke (HTDW Jaari fix). + + * nnfolder.el (nnfolder-close-group): Don't push bogus entries + onto alist. + + Tue Mar 18 14:28:27 1997 Jan Vroonhof + + * nnfolder.el (nnfolder-request-scan): Check whether buffer really + is live. + + Tue Mar 18 13:53:00 1997 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-read-group): Iterate instead of + recurse. + + * nnfolder.el (nnfolder-request-accept-article): Don't insert into + Message-ID cache. + * nnbabyl.el (nnbabyl-request-accept-article): Ditto. + * nnmbox.el (nnmbox-request-accept-article): Ditto. + * nnml.el (nnml-request-accept-article): Ditto. + * nnmh.el (nnmh-request-accept-article): Ditto. + Tue Mar 18 00:35:06 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.28 is released. *** pub/rgnus/texi/gnus.texi Tue Mar 18 00:43:30 1997 --- rgnus/texi/gnus.texi Tue Mar 18 18:02:02 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.29 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.28 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.29 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.28 @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.29 @end ifinfo *************** *** 6029,6034 **** --- 6029,6040 ---- @findex gnus-article-strip-blank-lines Do all the three commands above (@code{gnus-article-strip-blank-lines}). + + @item W E s + @kindex W E s (Summary) + @findex gnus-article-strip-leading-space + Remove all white space from the beginning of all lines of the article + body (@code{gnus-article-strip-leading-space}). @end table *** pub/rgnus/texi/ChangeLog Mon Mar 17 17:40:31 1997 --- rgnus/texi/ChangeLog Tue Mar 18 18:02:02 1997 *************** *** 1,3 **** --- 1,7 ---- + Tue Mar 18 14:43:32 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Article Washing): Not addition. + Mon Mar 17 16:15:54 1997 Philippe Schnoebelen * Makefile (install): Install properly.