*** pub/sgnus/lisp/gnus-topic.el Sun May 12 02:04:44 1996 --- sgnus/lisp/gnus-topic.el Wed May 15 04:46:54 1996 *************** *** 695,701 **** (defun gnus-topic-create-topic (topic parent &optional previous full-topic) (interactive (list ! (read-string "Create topic: ") (gnus-group-parent-topic))) ;; Check whether this topic already exists. (when (gnus-topic-find-topology topic) --- 695,701 ---- (defun gnus-topic-create-topic (topic parent &optional previous full-topic) (interactive (list ! (read-string "New topic: ") (gnus-group-parent-topic))) ;; Check whether this topic already exists. (when (gnus-topic-find-topology topic) *** pub/sgnus/lisp/gnus.el Sun May 12 02:04:48 1996 --- sgnus/lisp/gnus.el Wed May 15 04:47:01 1996 *************** *** 1468,1474 **** (defvar gnus-parse-headers-hook nil "*A hook called before parsing the headers.") ! (add-hook 'gnus-parse-headers-hook 'gnus-headers-decode-quoted-printable) (defvar gnus-exit-group-hook nil "*A hook called when exiting (not quitting) summary mode.") --- 1468,1474 ---- (defvar gnus-parse-headers-hook nil "*A hook called before parsing the headers.") ! (add-hook 'gnus-parse-headers-hook 'gnus-decode-rfc1522) (defvar gnus-exit-group-hook nil "*A hook called when exiting (not quitting) summary mode.") *************** *** 1718,1724 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.84" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1718,1724 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.85" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 11497,11503 **** (gnus-request-accept-article group nil t) (kill-buffer (current-buffer))))) ! (defun gnus-summary-expire-articles () "Expire all articles that are marked as expirable in the current group." (interactive) (gnus-set-global-variables) --- 11497,11503 ---- (gnus-request-accept-article group nil t) (kill-buffer (current-buffer))))) ! (defun gnus-summary-expire-articles (&optional now) "Expire all articles that are marked as expirable in the current group." (interactive) (gnus-set-global-variables) *************** *** 11509,11516 **** (gnus-list-of-read-articles gnus-newsgroup-name) (setq gnus-newsgroup-expirable (sort gnus-newsgroup-expirable '<)))) ! (expiry-wait (gnus-group-get-parameter ! gnus-newsgroup-name 'expiry-wait)) es) (when expirable ;; There are expirable articles in this group, so we run them --- 11509,11517 ---- (gnus-list-of-read-articles gnus-newsgroup-name) (setq gnus-newsgroup-expirable (sort gnus-newsgroup-expirable '<)))) ! (expiry-wait (if now 'immediate ! (gnus-group-get-parameter ! gnus-newsgroup-name 'expiry-wait))) es) (when expirable ;; There are expirable articles in this group, so we run them *************** *** 11547,11555 **** (gnus-y-or-n-p "Are you really, really, really sure you want to delete all these messages? ") (error "Phew!")) ! (let ((nnmail-expiry-wait 'immediate) ! (nnmail-expiry-wait-function nil)) ! (gnus-summary-expire-articles))) ;; Suggested by Jack Vinson . (defun gnus-summary-delete-article (&optional n) --- 11548,11554 ---- (gnus-y-or-n-p "Are you really, really, really sure you want to delete all these messages? ") (error "Phew!")) ! (gnus-summary-expire-articles t)) ;; Suggested by Jack Vinson . (defun gnus-summary-delete-article (&optional n) *************** *** 13956,13977 **** (process-send-region "gnus-x-face" beg end) (process-send-eof "gnus-x-face"))))))))) ! (defun gnus-headers-decode-quoted-printable () "Hack to remove QP encoding from headers." (let ((case-fold-search t) (inhibit-point-motion-hooks t) (buffer-read-only nil) string) ! (goto-char (point-min)) ! (while (re-search-forward "=\\?iso-8859-1\\?q\\?\\([^?\t\n]*\\)\\?=" nil t) ! (setq string (match-string 1)) ! (narrow-to-region (match-beginning 0) (match-end 0)) ! (delete-region (point-min) (point-max)) ! (insert string) ! (gnus-mime-decode-quoted-printable (goto-char (point-min)) (point-max)) ! (subst-char-in-region (point-min) (point-max) ?_ ? ) ! (widen) ! (goto-char (point-min))))) (defun gnus-article-de-quoted-unreadable (&optional force) "Do a naive translation of a quoted-printable-encoded article. --- 13955,13982 ---- (process-send-region "gnus-x-face" beg end) (process-send-eof "gnus-x-face"))))))))) ! (defalias 'gnus-header-decode-quoted-printable 'gnus-decode-rfc1522) ! (defun gnus-decode-rfc1522 () "Hack to remove QP encoding from headers." (let ((case-fold-search t) (inhibit-point-motion-hooks t) (buffer-read-only nil) string) ! (save-restriction ! (narrow-to-region ! (goto-char (point-min)) ! (or (search-forward "\n\n" nil t) (point-max))) ! ! (while (re-search-forward ! "=\\?iso-8859-1\\?q\\?\\([^?\t\n]*\\)\\?=" nil t) ! (setq string (match-string 1)) ! (narrow-to-region (match-beginning 0) (match-end 0)) ! (delete-region (point-min) (point-max)) ! (insert string) ! (gnus-mime-decode-quoted-printable (goto-char (point-min)) (point-max)) ! (subst-char-in-region (point-min) (point-max) ?_ ? ) ! (widen) ! (goto-char (point-min)))))) (defun gnus-article-de-quoted-unreadable (&optional force) "Do a naive translation of a quoted-printable-encoded article. *************** *** 13986,13992 **** (let ((case-fold-search t) (buffer-read-only nil) (type (gnus-fetch-field "content-transfer-encoding"))) ! (gnus-headers-decode-quoted-printable) (when (or force (and type (string-match "quoted-printable" (downcase type)))) (goto-char (point-min)) --- 13991,13997 ---- (let ((case-fold-search t) (buffer-read-only nil) (type (gnus-fetch-field "content-transfer-encoding"))) ! (gnus-decode-rfc1522) (when (or force (and type (string-match "quoted-printable" (downcase type)))) (goto-char (point-min)) *** pub/sgnus/lisp/nnmail.el Sun May 12 02:04:51 1996 --- sgnus/lisp/nnmail.el Wed May 15 04:47:02 1996 *************** *** 885,891 **** nnmail-use-procmail) (directory-files nnmail-procmail-directory ! t (concat (if group group "") nnmail-procmail-suffix "$") t))) (p procmails) (crash (when (and (file-exists-p nnmail-crash-box) --- 885,891 ---- nnmail-use-procmail) (directory-files nnmail-procmail-directory ! t (concat (if group (concat "/" group) "") nnmail-procmail-suffix "$") t))) (p procmails) (crash (when (and (file-exists-p nnmail-crash-box) *** pub/sgnus/lisp/nnspool.el Sun May 12 02:04:51 1996 --- sgnus/lisp/nnspool.el Wed May 15 04:47:02 1996 *************** *** 157,163 **** (nnspool-close-server) (nnheader-report 'nnspool "Spool directory doesn't exist: %s" nnspool-spool-directory)) ! ((not (file-directory-p (file-truename nnspool-spool-directory))) (nnspool-close-server) (nnheader-report 'nnspool "Not a directory: %s" nnspool-spool-directory)) (t --- 157,165 ---- (nnspool-close-server) (nnheader-report 'nnspool "Spool directory doesn't exist: %s" nnspool-spool-directory)) ! ((not (file-directory-p ! (directory-file-name ! (file-truename nnspool-spool-directory)))) (nnspool-close-server) (nnheader-report 'nnspool "Not a directory: %s" nnspool-spool-directory)) (t *** pub/sgnus/lisp/ChangeLog Sun May 12 02:04:59 1996 --- sgnus/lisp/ChangeLog Wed May 15 04:46:54 1996 *************** *** 1,4 **** --- 1,23 ---- + Wed May 15 03:52:50 1996 Lars Magne Ingebrigtsen + + * nnspool.el (nnspool-open-server): Use directory file name. + + * gnus-topic.el (gnus-topic-create-topic): Changed prompt. + + Tue May 14 03:16:43 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-decode-rfc1522): Only decode headers; changed + name. + + * nnmail.el (nnmail-get-spool-files): Anchor matches. + + * gnus.el (gnus-summary-expire-articles-now): Didn't work in group + with group params. + (gnus-summary-expire-articles): Accept `now' parameter. + Sun May 12 01:29:12 1996 Lars Magne Ingebrigtsen + + * gnus.el: September Gnus v0.84 is released. * gnus-xmas.el (gnus-xmas-summary-recenter): Protect against evil. *** pub/sgnus/texi/gnus.texi Sun May 12 02:05:03 1996 --- sgnus/texi/gnus.texi Wed May 15 04:47:06 1996 *************** *** 6064,6074 **** @cindex LIST overview.fmt @cindex overview.fmt To check whether your @sc{nntp} server includes the @code{Xref} header ! in its overview files, try @samp{telnet your.nntp.server nntp} and then ! say @samp{LIST overview.fmt}. This may not work, but if it does, and ! the last line you get does not read @samp{Xref:full}, then you should ! shout and whine at your news admin until she includes the @code{Xref} ! header in the overview files. @vindex gnus-nov-is-evil If you want Gnus to get the @code{Xref}s right all the time, you have to --- 6064,6075 ---- @cindex LIST overview.fmt @cindex overview.fmt To check whether your @sc{nntp} server includes the @code{Xref} header ! in its overview files, try @samp{telnet your.nntp.server nntp}, ! @samp{MODE READER} on @code{inn} servers, and then say @samp{LIST ! overview.fmt}. This may not work, but if it does, and the last line you ! get does not read @samp{Xref:full}, then you should shout and whine at ! your news admin until she includes the @code{Xref} header in the ! overview files. @vindex gnus-nov-is-evil If you want Gnus to get the @code{Xref}s right all the time, you have to