*** pub/sgnus/lisp/gnus.el Fri Aug 2 22:13:13 1996 --- sgnus/lisp/gnus.el Fri Aug 30 03:19:11 1996 *************** *** 1774,1780 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.39" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 1774,1780 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.40" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *************** *** 5433,5440 **** (- (1+ (cdr active)) (car active))))) (gnus-summary-read-group group (or all (and (numberp number) ! (zerop (+ number (length (cdr (assq 'tick marked))) ! (length (cdr (assq 'dormant marked))))))) no-article))) (defun gnus-group-select-group (&optional all) --- 5433,5442 ---- (- (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))) (defun gnus-group-select-group (&optional all) *************** *** 6039,6055 **** (defun gnus-group-enter-directory (dir) "Enter an ephemeral nneething group." (interactive "DDirectory to read: ") ! (let* ((method (list 'nneething dir)) (leaf (gnus-group-prefixed-name (file-name-nondirectory (directory-file-name dir)) method)) (name (gnus-generate-new-group-name leaf))) ! (let ((nneething-read-only t)) ! (or (gnus-group-read-ephemeral-group ! name method t ! (cons (current-buffer) (if (eq major-mode 'gnus-summary-mode) ! 'summary 'group))) ! (error "Couldn't enter %s" dir))))) ;; Group sorting commands ;; Suggested by Joe Hildebrand . --- 6041,6057 ---- (defun gnus-group-enter-directory (dir) "Enter an ephemeral nneething group." (interactive "DDirectory to read: ") ! (let* ((method (list 'nneething dir '(nneething-read-only t))) (leaf (gnus-group-prefixed-name (file-name-nondirectory (directory-file-name dir)) method)) (name (gnus-generate-new-group-name leaf))) ! (unless (gnus-group-read-ephemeral-group ! name method t ! (cons (current-buffer) ! (if (eq major-mode 'gnus-summary-mode) ! 'summary 'group))) ! (error "Couldn't enter %s" dir)))) ;; Group sorting commands ;; Suggested by Joe Hildebrand . *************** *** 6628,6634 **** (gnus-group-update-group group)) (if (eq (gnus-server-status (gnus-find-method-for-group group)) 'denied) ! (gnus-error "Server denied access") (gnus-error 3 "%s error: %s" group (gnus-status-message group))))) (when beg (goto-char beg)) (when gnus-goto-next-group-when-activating --- 6630,6636 ---- (gnus-group-update-group group)) (if (eq (gnus-server-status (gnus-find-method-for-group group)) 'denied) ! (gnus-error 3 "Server denied access") (gnus-error 3 "%s error: %s" group (gnus-status-message group))))) (when beg (goto-char beg)) (when gnus-goto-next-group-when-activating *** pub/sgnus/lisp/message.el Tue Jul 30 21:30:18 1996 --- sgnus/lisp/message.el Fri Aug 30 02:48:29 1996 *************** *** 1781,1787 **** (not (eq message-fcc-handler-function 'rmail-output))) (funcall message-fcc-handler-function file) (if (and (file-readable-p file) (mail-file-babyl-p file)) ! (rmail-output file 1) (let ((mail-use-rfc822 t)) (rmail-output file 1 t t)))))) (kill-buffer (current-buffer))))) --- 1781,1787 ---- (not (eq message-fcc-handler-function 'rmail-output))) (funcall message-fcc-handler-function file) (if (and (file-readable-p file) (mail-file-babyl-p file)) ! (rmail-output file 1 nil t) (let ((mail-use-rfc822 t)) (rmail-output file 1 t t)))))) (kill-buffer (current-buffer))))) *** pub/sgnus/lisp/nndoc.el Wed Jun 5 19:17:38 1996 --- sgnus/lisp/nndoc.el Fri Aug 30 03:31:15 1996 *************** *** 53,63 **** (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox ! (article-begin . ! ,(let ((delim (concat "^" message-unix-mail-delimiter))) ! (if (string-match "\n\\'" delim) ! (substring delim 0 (match-beginning 0)) ! delim))) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . "\^_\^L *\n") --- 53,60 ---- (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox ! (article-begin . "^From \\([^ \n]*\\(\\|\".*\"[^ \n]*\\)\\) ?\\([^ \n]*\\) *\\([^ ]*\\) *\\([0-9]*\\) *\\([0-9:]*\\) *\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?\\|[-+]?[0-9][0-9][0-9][0-9]\\|\\) * [0-9][0-9]\\([0-9]*\\) *\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?\\|[-+]?[0-9][0-9][0-9][0-9]\\|\\) *\\(remote from .*\\)?\n") ! (article-begin-function . nndoc-mbox-article-begin) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . "\^_\^L *\n") *************** *** 107,112 **** --- 104,110 ---- (defvoo nndoc-first-article nil) (defvoo nndoc-article-end nil) (defvoo nndoc-article-begin nil) + (defvoo nndoc-article-begin-function nil) (defvoo nndoc-head-begin nil) (defvoo nndoc-head-end nil) (defvoo nndoc-file-end nil) *************** *** 338,344 **** nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body nndoc-article-transform nndoc-generate-head nndoc-body-begin-function ! nndoc-head-begin-function))) (while vars (set (pop vars) nil))) (let* (defs guess) --- 336,342 ---- nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body nndoc-article-transform nndoc-generate-head nndoc-body-begin-function ! nndoc-head-begin-function nndoc-article-begin-function))) (while vars (set (pop vars) nil))) (let* (defs guess) *************** *** 371,377 **** ;; Go through the file. (while (if (and first nndoc-first-article) (nndoc-search nndoc-first-article) ! (nndoc-search nndoc-article-begin)) (setq first nil) (cond (nndoc-head-begin-function (funcall nndoc-head-begin-function)) --- 369,377 ---- ;; Go through the file. (while (if (and first nndoc-first-article) (nndoc-search nndoc-first-article) ! (if nndoc-article-begin-function ! (funcall nndoc-article-begin-function) ! (nndoc-search nndoc-article-begin))) (setq first nil) (cond (nndoc-head-begin-function (funcall nndoc-head-begin-function)) *************** *** 391,397 **** (funcall nndoc-body-end-function)) (and nndoc-body-end (nndoc-search nndoc-body-end)) ! (nndoc-search nndoc-article-begin) (progn (goto-char (point-max)) (when nndoc-file-end --- 391,399 ---- (funcall nndoc-body-end-function)) (and nndoc-body-end (nndoc-search nndoc-body-end)) ! (if nndoc-article-begin-function ! (funcall nndoc-article-begin-function) ! (nndoc-search nndoc-article-begin)) (progn (goto-char (point-max)) (when nndoc-file-end *************** *** 410,415 **** --- 412,421 ---- (defun nndoc-digest-body-end () (and (re-search-forward nndoc-article-begin nil t) (goto-char (match-beginning 0)))) + + (defun nndoc-mbox-article-begin () + (when (re-search-forward nndoc-article-begin nil t) + (goto-char (match-beginning 0)))) (defun nndoc-mbox-body-end () (let ((beg (point)) *** pub/sgnus/lisp/ChangeLog Fri Aug 2 22:17:56 1996 --- sgnus/lisp/ChangeLog Fri Aug 30 02:23:39 1996 *************** *** 1,3 **** --- 1,16 ---- + Fri Aug 30 02:23:23 1996 Lars Magne Ingebrigtsen + + * message.el (message-do-fcc): Set the FROM-GNUS flag. + + Sat Aug 24 23:32:02 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-group-enter-directory): Would temporarily bind + `nneething-read-only', shadowing the proper `defvar'. + + Fri Aug 2 22:25:31 1996 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.2.39 is released. + Wed Jul 31 15:23:54 1996 Ken Olstad * gnus-xmas.el (gnus-xmas-redefine): Disbale XFace when running