*** pub/rgnus/lisp/gnus-art.el Thu Jan 9 11:59:43 1997 --- rgnus/lisp/gnus-art.el Wed Jan 15 04:05:20 1997 *************** *** 122,128 **** (defcustom gnus-emphasis-alist (let ((format ! "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)") (types '(("_" "_" underline) ("/" "/" italic) --- 122,128 ---- (defcustom gnus-emphasis-alist (let ((format ! "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)") (types '(("_" "_" underline) ("/" "/" italic) *************** *** 185,190 **** --- 185,196 ---- "Face used for displaying underlined bold italic emphasized text (_/*word*/_)." :group 'article) + (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z" + "Format for display of Date headers in article bodies. + See `format-time-zone' for the possible values." + :type 'string + :group 'article) + (eval-and-compile (autoload 'hexl-hex-string-to-integer "hexl") (autoload 'timezone-make-date-arpa-standard "timezone") *************** *** 1127,1132 **** --- 1133,1145 ---- ;; Get the original date from the article. ((eq type 'original) (concat "Date: " date "\n")) + ;; Let the user define the format. + ((eq type 'user) + (format-time-string gnus-article-time-format + (ignore-errors + (gnus-encode-date + (timezone-make-date-arpa-standard + date nil "UT"))))) ;; Do an X-Sent lapsed format. ((eq type 'lapsed) ;; If the date is seriously mangled, the timezone functions are *************** *** 1199,1204 **** --- 1212,1222 ---- (interactive (list t)) (article-date-ut 'lapsed highlight)) + (defun article-date-user (&optional highlight) + "Convert the current article date to the user-defined format." + (interactive (list t)) + (article-date-ut 'user highlight)) + (defun article-show-all () "Show all hidden text in the article buffer." (interactive) *************** *** 1213,1219 **** (save-excursion (let ((alist gnus-emphasis-alist) (buffer-read-only nil) ! (props (append '(gnus-article-type emphasis) gnus-hidden-properties)) regexp elem beg invisible visible face) (goto-char (point-min)) --- 1231,1237 ---- (save-excursion (let ((alist gnus-emphasis-alist) (buffer-read-only nil) ! (props (append '(article-type emphasis) gnus-hidden-properties)) regexp elem beg invisible visible face) (goto-char (point-min)) *************** *** 1464,1470 **** (defun gnus-Numeric-save-name (newsgroup headers &optional last-file) "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. ! If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num." (let ((default (expand-file-name --- 1482,1488 ---- (defun gnus-Numeric-save-name (newsgroup headers &optional last-file) "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. ! If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num." (let ((default (expand-file-name *************** *** 1557,1562 **** --- 1575,1582 ---- article-strip-blank-lines article-date-local article-date-original + article-date-ut + article-date-user article-date-lapsed article-emphasize (article-show-all . gnus-article-show-all-headers)))) *************** *** 2418,2435 **** ;;; Internal Variables: ! (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)*\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)" "Regular expression that matches URLs." :group 'article :type 'regexp) (defcustom gnus-button-alist ! `(("\\(\n\t ]*\\)>?\\)" 1 t gnus-button-fetch-group 4) ("\\bin\\( +article\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) - ("\\(\n\t ]*\\)>?\\)" 1 t - gnus-button-message-id 3) ("\\( \n\t]+\\)>?" 0 t gnus-url-mailto 2) ;; This is how URLs _should_ be embedded in text... ("]*\\)>" 0 t gnus-button-embedded-url 1) --- 2438,2455 ---- ;;; Internal Variables: ! (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)" "Regular expression that matches URLs." :group 'article :type 'regexp) (defcustom gnus-button-alist ! `(("\\(\n\t ]*\\)>?\\)" 1 t ! gnus-button-message-id 3) ! ("\\(\n\t ]*\\)>?\\)" 1 t gnus-button-fetch-group 4) ("\\bin\\( +article\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\( \n\t]+\\)>?" 0 t gnus-url-mailto 2) ;; This is how URLs _should_ be embedded in text... ("]*\\)>" 0 t gnus-button-embedded-url 1) *** pub/rgnus/lisp/gnus-cite.el Thu Jan 9 11:59:43 1997 --- rgnus/lisp/gnus-cite.el Wed Jan 15 03:05:36 1997 *************** *** 36,41 **** --- 36,54 ---- :group 'article) + (defcustom gnus-cite-reply-regexp + "^\\(Subject: Re\\|In-Reply-To\\|References\\):" + "If headers match this regexp it is reasonable to believe that + article has citations." + :group 'gnus-cite + :type 'string) + + (defcustom gnus-cite-always-check nil + "Check article always for citations. Set it t to check all articles." + :group 'gnus-cite + :type '(choice (const :tag "no" nil) + (const :tag "yes" t))) + (defcustom gnus-cited-text-button-line-format "%(%{[...]%}%)\n" "Format of cited text buttons." :group 'gnus-cite *************** *** 394,400 **** (setcdr m (cdddr m)) (setq m (cdr m)))) marks)))) ! (defun gnus-article-fill-cited-article (&optional force) "Do word wrapping in the current article." (interactive (list t)) --- 407,413 ---- (setcdr m (cdddr m)) (setq m (cdr m)))) marks)))) ! (defun gnus-article-fill-cited-article (&optional force) "Do word wrapping in the current article." (interactive (list t)) *************** *** 565,579 **** () (setq gnus-cite-article (cons (car gnus-article-current) (cdr gnus-article-current))) ! (gnus-cite-parse)))) (defun gnus-cite-parse () ;; Parse and connect citation prefixes and attribution lines. ;; Parse current buffer searching for citation prefixes. - (goto-char (point-min)) - (unless (search-forward "\n\n" nil t) - (goto-char (point-max))) (let ((line (1+ (count-lines (point-min) (point)))) (case-fold-search t) (max (save-excursion --- 578,607 ---- () (setq gnus-cite-article (cons (car gnus-article-current) (cdr gnus-article-current))) ! (gnus-cite-parse-wrapper)))) ! ! (defun gnus-cite-parse-wrapper () ! ;; Wrap chopped gnus-cite-parse ! (goto-char (point-min)) ! (unless (search-forward "\n\n" nil t) ! (goto-char (point-max))) ! (save-excursion ! (gnus-cite-parse-attributions)) ! ;; Try to avoid check citation if there is no reason to believe ! ;; that article has citations ! (if (or gnus-cite-always-check ! (save-excursion ! (re-search-backward gnus-cite-reply-regexp nil t)) ! gnus-cite-loose-attribution-alist) ! (progn (save-excursion ! (gnus-cite-parse)) ! (save-excursion ! (gnus-cite-connect-attributions))))) (defun gnus-cite-parse () ;; Parse and connect citation prefixes and attribution lines. ;; Parse current buffer searching for citation prefixes. (let ((line (1+ (count-lines (point-min) (point)))) (case-fold-search t) (max (save-excursion *************** *** 639,677 **** (setq current (car loop) loop (cdr loop)) (setcdr current ! (gnus-set-difference (cdr current) numbers)))))))) ;; No citations have been connected to attribution lines yet. (setq gnus-cite-loose-prefix-alist (append gnus-cite-prefix-alist nil)) ;; Parse current buffer searching for attribution lines. - (goto-char (point-min)) - (search-forward "\n\n" nil t) - (while (re-search-forward gnus-cite-attribution-suffix (point-max) t) - (let* ((start (match-beginning 0)) - (end (match-end 0)) - (wrote (count-lines (point-min) end)) - (prefix (gnus-cite-find-prefix wrote)) - ;; Check previous line for an attribution leader. - (tag (progn - (beginning-of-line 1) - (when (looking-at gnus-supercite-secondary-regexp) - (buffer-substring (match-beginning 1) - (match-end 1))))) - (in (progn - (goto-char start) - (and (re-search-backward gnus-cite-attribution-prefix - (save-excursion - (beginning-of-line 0) - (point)) - t) - (not (re-search-forward gnus-cite-attribution-suffix - start t)) - (count-lines (point-min) (1+ (point))))))) - (when (eq wrote in) - (setq in nil)) - (goto-char end) - (push (list wrote in prefix tag) - gnus-cite-loose-attribution-alist))) ;; Find exact supercite citations. (gnus-cite-match-attributions 'small nil (lambda (prefix tag) --- 667,718 ---- (setq current (car loop) loop (cdr loop)) (setcdr current ! (gnus-set-difference (cdr current) numbers))))))))) ! ! (defun gnus-cite-parse-attributions () ! (let (al-alist) ! ;; Parse attributions ! (while (re-search-forward gnus-cite-attribution-suffix (point-max) t) ! (let* ((start (match-beginning 0)) ! (end (match-end 0)) ! (wrote (count-lines (point-min) end)) ! (prefix (gnus-cite-find-prefix wrote)) ! ;; Check previous line for an attribution leader. ! (tag (progn ! (beginning-of-line 1) ! (when (looking-at gnus-supercite-secondary-regexp) ! (buffer-substring (match-beginning 1) ! (match-end 1))))) ! (in (progn ! (goto-char start) ! (and (re-search-backward gnus-cite-attribution-prefix ! (save-excursion ! (beginning-of-line 0) ! (point)) ! t) ! (not (re-search-forward gnus-cite-attribution-suffix ! start t)) ! (count-lines (point-min) (1+ (point))))))) ! (when (eq wrote in) ! (setq in nil)) ! (goto-char end) ! ;; don't add duplicates ! (let ((al (buffer-substring (save-excursion (beginning-of-line 0) ! (1+ (point))) ! end))) ! (if (not (assoc al al-alist)) ! (progn ! (push (list wrote in prefix tag) ! gnus-cite-loose-attribution-alist) ! (push (cons al t) al-alist)))))))) ! ! (defun gnus-cite-connect-attributions () ! ;; Connect attributions to citations ! ;; No citations have been connected to attribution lines yet. (setq gnus-cite-loose-prefix-alist (append gnus-cite-prefix-alist nil)) ;; Parse current buffer searching for attribution lines. ;; Find exact supercite citations. (gnus-cite-match-attributions 'small nil (lambda (prefix tag) *** pub/rgnus/lisp/gnus-sum.el Thu Jan 9 11:59:37 1997 --- rgnus/lisp/gnus-sum.el Wed Jan 15 04:05:20 1997 *************** *** 1421,1427 **** "u" gnus-article-date-ut "l" gnus-article-date-local "e" gnus-article-date-lapsed ! "o" gnus-article-date-original) (gnus-define-keys (gnus-summary-wash-empty-map "E" gnus-summary-wash-map) "t" gnus-article-remove-trailing-blank-lines --- 1421,1428 ---- "u" gnus-article-date-ut "l" gnus-article-date-local "e" gnus-article-date-lapsed ! "o" gnus-article-date-original ! "s" gnus-article-date-user) (gnus-define-keys (gnus-summary-wash-empty-map "E" gnus-summary-wash-map) "t" gnus-article-remove-trailing-blank-lines *************** *** 1622,1628 **** ["Local" gnus-article-date-local t] ["UT" gnus-article-date-ut t] ["Original" gnus-article-date-original t] ! ["Lapsed" gnus-article-date-lapsed t]) ("Filter" ("Remove Blanks" ["Leading" gnus-article-strip-leading-blank-lines t] --- 1623,1630 ---- ["Local" gnus-article-date-local t] ["UT" gnus-article-date-ut t] ["Original" gnus-article-date-original t] ! ["Lapsed" gnus-article-date-lapsed t] ! ["User-defined" gnus-article-date-user t]) ("Filter" ("Remove Blanks" ["Leading" gnus-article-strip-leading-blank-lines t] *************** *** 3654,3660 **** articles fetched-articles cached) (unless (gnus-check-server ! (setq gnus-current-select-method (gnus-find-method-for-group group))) (error "Couldn't open server")) (or (and entry (not (eq (car entry) t))) ; Either it's active... --- 3656,3663 ---- articles fetched-articles cached) (unless (gnus-check-server ! (setq gnus-current-select-method ! (gnus-find-method-for-group group))) (error "Couldn't open server")) (or (and entry (not (eq (car entry) t))) ; Either it's active... *************** *** 5474,5479 **** --- 5477,5483 ---- (setq gnus-summary-buffer (current-buffer)) (gnus-set-global-variables) (let ((article (gnus-summary-article-number)) + (article-window (get-buffer-window gnus-article-buffer)) (endp nil)) (gnus-configure-windows 'article) (if (eq (cdr (assq article gnus-newsgroup-reads)) gnus-canceled-mark) *************** *** 5487,5504 **** (not (equal (car gnus-article-current) gnus-newsgroup-name))) ;; Selected subject is different from current article's. (gnus-summary-display-article article) ! (gnus-eval-in-buffer-window gnus-article-buffer ! (setq endp (gnus-article-next-page lines))) ! (when endp ! (cond (circular ! (gnus-summary-beginning-of-article)) ! (lines ! (gnus-message 3 "End of message")) ! ((null lines) ! (if (and (eq gnus-summary-goto-unread 'never) ! (not (gnus-summary-last-article-p article))) ! (gnus-summary-next-article) ! (gnus-summary-next-unread-article))))))) (gnus-summary-recenter) (gnus-summary-position-point))) --- 5491,5509 ---- (not (equal (car gnus-article-current) gnus-newsgroup-name))) ;; Selected subject is different from current article's. (gnus-summary-display-article article) ! (when article-window ! (gnus-eval-in-buffer-window gnus-article-buffer ! (setq endp (gnus-article-next-page lines))) ! (when endp ! (cond (circular ! (gnus-summary-beginning-of-article)) ! (lines ! (gnus-message 3 "End of message")) ! ((null lines) ! (if (and (eq gnus-summary-goto-unread 'never) ! (not (gnus-summary-last-article-p article))) ! (gnus-summary-next-article) ! (gnus-summary-next-unread-article)))))))) (gnus-summary-recenter) (gnus-summary-position-point))) *************** *** 7035,7049 **** "Query where the respool algorithm would put this article." (interactive) (gnus-set-global-variables) ! (gnus-summary-select-article) ! (save-excursion ! (set-buffer gnus-article-buffer) ! (save-restriction ! (goto-char (point-min)) ! (search-forward "\n\n") ! (narrow-to-region (point-min) (point)) ! (message "This message would go to %s" ! (mapconcat 'car (nnmail-article-group 'identity) ", "))))) ;; Summary marking commands. --- 7040,7055 ---- "Query where the respool algorithm would put this article." (interactive) (gnus-set-global-variables) ! (let (gnus-mark-article-hook) ! (gnus-summary-select-article) ! (save-excursion ! (set-buffer gnus-article-buffer) ! (save-restriction ! (goto-char (point-min)) ! (search-forward "\n\n") ! (narrow-to-region (point-min) (point)) ! (message "This message would go to %s" ! (mapconcat 'car (nnmail-article-group 'identity) ", ")))))) ;; Summary marking commands. *** pub/rgnus/lisp/gnus-topic.el Thu Jan 9 11:59:37 1997 --- rgnus/lisp/gnus-topic.el Wed Jan 15 04:44:37 1997 *************** *** 1198,1203 **** --- 1198,1204 ---- (when entry (setcar entry new-name)) (forward-line -1) + (gnus-dribble-touch) (gnus-group-list-groups))) (defun gnus-topic-indent (&optional unindent) *************** *** 1214,1220 **** (gnus-topic-goto-topic topic) (gnus-topic-kill-group) (gnus-topic-create-topic ! topic parent nil (cdar (pop gnus-topic-killed-topics))) (or (gnus-topic-goto-topic topic) (gnus-topic-goto-topic parent)))))) --- 1215,1223 ---- (gnus-topic-goto-topic topic) (gnus-topic-kill-group) (gnus-topic-create-topic ! topic parent nil (cdaar gnus-topic-killed-topics)) ! (push (cdar gnus-topic-killed-topics) gnus-topic-alist) ! (pop gnus-topic-killed-topics) (or (gnus-topic-goto-topic topic) (gnus-topic-goto-topic parent)))))) *************** *** 1231,1237 **** (gnus-topic-kill-group) (gnus-topic-create-topic topic grandparent (gnus-topic-next-topic parent) ! (cdar (pop gnus-topic-killed-topics))) (gnus-topic-goto-topic topic)))) (defun gnus-topic-list-active (&optional force) --- 1234,1242 ---- (gnus-topic-kill-group) (gnus-topic-create-topic topic grandparent (gnus-topic-next-topic parent) ! (cdaar gnus-topic-killed-topics)) ! (push (cdar gnus-topic-killed-topics) gnus-topic-alist) ! (pop gnus-topic-killed-topics) (gnus-topic-goto-topic topic)))) (defun gnus-topic-list-active (&optional force) *** pub/rgnus/lisp/gnus.el Thu Jan 9 11:59:35 1997 --- rgnus/lisp/gnus.el Wed Jan 15 04:05:20 1997 *************** *** 43,49 **** "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.80" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) --- 43,49 ---- "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.81" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) *************** *** 1141,1150 **** --- 1141,1152 ---- gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight + gnus-article-emphasize gnus-article-display-x-face) '(gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike + gnus-article-emphasize gnus-article-maybe-highlight)) "Controls how the article buffer will look. *************** *** 1465,1471 **** gnus-article-date-original gnus-article-date-lapsed gnus-article-show-all-headers gnus-article-edit-mode gnus-article-edit-article ! gnus-article-edit-done gnus-decode-rfc1522) ("gnus-int" gnus-request-type) ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 gnus-dribble-enter) --- 1467,1473 ---- gnus-article-date-original gnus-article-date-lapsed gnus-article-show-all-headers gnus-article-edit-mode gnus-article-edit-article ! gnus-article-edit-done gnus-decode-rfc1522 article-decode-rfc1522) ("gnus-int" gnus-request-type) ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 gnus-dribble-enter) *** pub/rgnus/lisp/nnmail.el Thu Jan 9 11:59:32 1997 --- rgnus/lisp/nnmail.el Thu Jan 9 21:52:47 1997 *************** *** 506,512 **** nil (if popmail (progn ! (setq nnmail-internal-password nnmail-pop-password) (when (and nnmail-pop-password-required (not nnmail-internal-password)) (setq nnmail-internal-password --- 506,514 ---- nil (if popmail (progn ! (when (and nnmail-pop-password ! nnmail-internal-password) ! (setq nnmail-internal-password nnmail-pop-password)) (when (and nnmail-pop-password-required (not nnmail-internal-password)) (setq nnmail-internal-password *************** *** 548,554 **** exec-directory) nil errors nil inbox tofile) (when nnmail-internal-password ! (list nnmail-internal-password)))))) (if (not (buffer-modified-p errors)) ;; No output => movemail won (progn --- 550,556 ---- exec-directory) nil errors nil inbox tofile) (when nnmail-internal-password ! (list (prin1-to-string nnmail-internal-password))))))) (if (not (buffer-modified-p errors)) ;; No output => movemail won (progn *** pub/rgnus/lisp/nnml.el Thu Jan 9 11:59:32 1997 --- rgnus/lisp/nnml.el Thu Jan 9 21:39:44 1997 *************** *** 264,287 **** (nnheader-article-to-file-alist nnml-current-directory))) (while (and articles is-old) ! (setq article (concat nnml-current-directory ! (int-to-string ! (setq number (pop articles))))) ! (when (setq mod-time (nth 5 (file-attributes article))) ! (if (and (nnml-deletable-article-p newsgroup number) ! (setq is-old ! (nnmail-expired-article-p newsgroup mod-time force ! nnml-inhibit-expiry))) ! (progn ! (nnheader-message 5 "Deleting article %s in %s..." ! article newsgroup) ! (condition-case () ! (funcall nnmail-delete-file-function article) ! (file-error ! (push number rest))) ! (setq active-articles (delq number active-articles)) ! (nnml-nov-delete-article newsgroup number)) ! (push number rest)))) (let ((active (nth 1 (assoc newsgroup nnml-group-alist)))) (when active (setcar active (or (and active-articles --- 264,288 ---- (nnheader-article-to-file-alist nnml-current-directory))) (while (and articles is-old) ! (when (setq article ! (assq (setq number (pop articles)) ! nnml-article-to-file-alist)) ! (setq article (concat nnml-current-directory (cdr article))) ! (when (setq mod-time (nth 5 (file-attributes article))) ! (if (and (nnml-deletable-article-p newsgroup number) ! (setq is-old ! (nnmail-expired-article-p newsgroup mod-time force ! nnml-inhibit-expiry))) ! (progn ! (nnheader-message 5 "Deleting article %s in %s..." ! article newsgroup) ! (condition-case () ! (funcall nnmail-delete-file-function article) ! (file-error ! (push number rest))) ! (setq active-articles (delq number active-articles)) ! (nnml-nov-delete-article newsgroup number)) ! (push number rest))))) (let ((active (nth 1 (assoc newsgroup nnml-group-alist)))) (when active (setcar active (or (and active-articles *** pub/rgnus/lisp/nnsoup.el Thu Jan 9 11:59:32 1997 --- rgnus/lisp/nnsoup.el Wed Jan 15 04:05:20 1997 *************** *** 386,392 **** (when (file-exists-p (concat nnsoup-tmp-directory "AREAS")) (save-excursion (set-buffer nntp-server-buffer) ! (let ((areas (gnus-soup-parse-areas (concat nnsoup-tmp-directory "AREAS"))) entry number area lnum cur-prefix file) ;; Go through all areas in the new AREAS file. (while (setq area (pop areas)) --- 386,393 ---- (when (file-exists-p (concat nnsoup-tmp-directory "AREAS")) (save-excursion (set-buffer nntp-server-buffer) ! (let ((areas (gnus-soup-parse-areas ! (concat nnsoup-tmp-directory "AREAS"))) entry number area lnum cur-prefix file) ;; Go through all areas in the new AREAS file. (while (setq area (pop areas)) *************** *** 487,494 **** ;; There is no MSG file. ((null msg-buf) nil) ! ! ;; We use the index file to find out where the article begins and ends. ((and (= (gnus-soup-encoding-index (gnus-soup-area-encoding (nth 1 area))) ?c) --- 488,495 ---- ;; There is no MSG file. ((null msg-buf) nil) ! ;; We use the index file to find out where the article ! ;; begins and ends. ((and (= (gnus-soup-encoding-index (gnus-soup-area-encoding (nth 1 area))) ?c) *** pub/rgnus/lisp/nntp.el Thu Jan 9 11:59:31 1997 --- rgnus/lisp/nntp.el Sun Jan 12 19:27:11 1997 *************** *** 420,426 **** (deffoo nntp-request-head (article &optional group server) (nntp-possibly-change-group group server) (when (nntp-send-command-and-decode ! "\r\n\\.\r\n" "HEAD" (if (numberp article) (int-to-string article) article)) (nntp-find-group-and-number))) --- 420,426 ---- (deffoo nntp-request-head (article &optional group server) (nntp-possibly-change-group group server) (when (nntp-send-command-and-decode ! "\r?\n\\.\r?\n" "HEAD" (if (numberp article) (int-to-string article) article)) (nntp-find-group-and-number))) *************** *** 784,792 **** (nntp-snarf-error-message) nil) (goto-char (point-max)) ! (while (not (re-search-backward wait-for nil t)) ! (nntp-accept-process-output process) ! (goto-char (point-max))) (nntp-decode-text (not decode)) (unless discard (save-excursion --- 784,796 ---- (nntp-snarf-error-message) nil) (goto-char (point-max)) ! (let ((limit (point-min))) ! (while (not (re-search-backward wait-for limit t)) ! ;; We assume that whatever we wait for is less than 1000 ! ;; characters long. ! (setq limit (max (- (point-max) 1000) (point-min))) ! (nntp-accept-process-output process) ! (goto-char (point-max)))) (nntp-decode-text (not decode)) (unless discard (save-excursion *************** *** 812,820 **** (save-excursion (set-buffer (or (nntp-find-connection-buffer nntp-server-buffer) nntp-server-buffer)) ! (let ((len (/ (point-max) 10000))) ! (unless (zerop len) ! (message "nntp reading%s" (make-string len ?.)))) (accept-process-output process 1))) (defun nntp-accept-response () --- 816,824 ---- (save-excursion (set-buffer (or (nntp-find-connection-buffer nntp-server-buffer) nntp-server-buffer)) ! (let ((len (/ (point-max) 1024))) ! (unless (< len 10) ! (message "nntp read: %dk" len))) (accept-process-output process 1))) (defun nntp-accept-response () *** pub/rgnus/lisp/ChangeLog Thu Jan 9 12:08:41 1997 --- rgnus/lisp/ChangeLog Wed Jan 15 04:44:37 1997 *************** *** 1,3 **** --- 1,72 ---- + Wed Jan 15 02:57:18 1997 Lars Magne Ingebrigtsen + + * gnus-topic.el (gnus-topic-indent): Don't remove all groups from + topic. + (gnus-topic-unindent): Ditto. + + * gnus-sum.el (gnus-summary-respool-query): Don't mark anything as + read. + + * gnus-art.el (gnus-button-alist): Move news:mesg-id up. + + * gnus.el (gnus-article-display-hook): Emphasize by default. + + * gnus-topic.el (gnus-topic-rename): Mark newsrc as dirty. + + * gnus-sum.el (gnus-summary-next-page): When the article window + isn't displayed, don't scroll. + + Wed Jan 15 02:19:56 1997 Markus Linnala + + * gnus-cite.el (gnus-cite-reply-regexp, gnus-cite-always-check): + New variables. + + Wed Jan 15 02:02:03 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (article-date-user): New command and keystroke. + + Wed Jan 15 02:01:15 1997 David Moore + + * gnus-art.el (gnus-article-time-format): New variable. + (article-make-date-line): Use it. + + Wed Jan 15 01:44:15 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-emphasis-alist): Allow emphasis around + sentences. + (gnus-button-url-regexp): Don't allow empty URLs. + + Sun Jan 12 19:27:23 1997 Thor Kristoffersen + + * nntp.el (nntp-request-head): Work when using rlogin. + + Sun Jan 12 15:17:16 1997 Chris Bone + + * nntp.el (nntp-accept-process-output): Give numerical messages. + (nntp-wait-for): Search less. + + Fri Jan 10 17:38:38 1997 Erik Toubro Nielsen + + * gnus-art.el (gnus-Numeric-save-name): Doc fix. + + Thu Jan 9 21:51:59 1997 Dan Schmidt + + * nnmail.el (nnmail-move-inbox): Quote password. + + Thu Jan 9 18:24:32 1997 Lars Magne Ingebrigtsen + + * nnmail.el (nnmail-move-inbox): Don't nix out + nnmail-internal-password. + + * nnml.el (nnml-request-expire-articles): Also expire gzipped + articles. + + * gnus-art.el (article-emphasize): Wouldn't toggle. + + Thu Jan 9 18:18:26 1997 Lars Magne Ingebrigtsen + + * gnus.el: Red Gnus v0.80 is released. + Thu Jan 9 12:00:21 1997 Wesley Hardaker * acronym.el: New package. *************** *** 25,31 **** * gnus-art.el: Redefine ems. ! Wed Jan 8 20:34:09 1997 John * message.el (message-sendmail-f-is-evil): New variable. (message-elide-elipsis): Ditto. --- 94,100 ---- * gnus-art.el: Redefine ems. ! Wed Jan 8 20:34:09 1997 John McClary Prevost * message.el (message-sendmail-f-is-evil): New variable. (message-elide-elipsis): Ditto. *** pub/rgnus/texi/gnus.texi Thu Jan 9 18:06:19 1997 --- rgnus/texi/gnus.texi Wed Jan 15 05:23:25 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.80 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.81 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Red Gnus 0.80 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Red Gnus 0.81 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 Red Gnus 0.80 @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 Red Gnus 0.81 @end ifinfo *************** *** 6091,6096 **** --- 6091,6107 ---- @findex gnus-article-date-local Display the date in the local timezone (@code{gnus-article-date-local}). + @item W T s + @kindex W T s (Summary) + @vindex gnus-article-time-format + @findex gnus-article-date-user + @findex format-time-string + Display the date using a user-defined format + (@code{gnus-article-date-user}). The format is specified by the + @code{gnus-article-time-format} variable, and is a string that's passed + to @code{format-time-string}. See the documentation of that variable + for a list possible format specs. + @item W T e @kindex W T e (Summary) @findex gnus-article-date-lapsed *************** *** 6616,6623 **** @findex gnus-summary-respool-article Respool the mail article (@code{gnus-summary-move-article}). @code{gnus-summary-respool-default-method} will be used as the default ! method when respooling. This variable is @code{nil} by default, which ! means that the current group method will be used instead. @item B w @itemx e --- 6627,6634 ---- @findex gnus-summary-respool-article Respool the mail article (@code{gnus-summary-move-article}). @code{gnus-summary-respool-default-method} will be used as the default ! select method when respooling. This variable is @code{nil} by default, ! which means that the current group select method will be used instead. @item B w @itemx e *************** *** 13743,13748 **** --- 13754,13760 ---- Peter Arius, Marc Auslander, + Chris Bone, Mark Borges, Lance A. Brown, Kees de Bruin, *************** *** 13801,13809 **** --- 13813,13824 ---- William Perry, Stephen Peters, Ulrich Pfeifer, + John McClary Prevost, Colin Rafferty, Bart Robinson, + Jason Rumney, Loren Schall, + Dan Schmidt, Ralph Schleicher, Randal L. Schwartz, Danny Siu, *************** *** 13825,13830 **** --- 13840,13848 ---- and Katsumi Yamaoka. @c Yamaoka + For a full overview of what each person has done, the ChangeLogs + included in the Gnus alpha distributions should give ample reading + (550kB and counting). Apologies to everybody that I've forgotten, of which there are many, I'm sure. *** pub/rgnus/texi/ChangeLog Tue Jan 7 10:17:05 1997 --- rgnus/texi/ChangeLog Wed Jan 15 03:05:35 1997 *************** *** 1,3 **** --- 1,7 ---- + Wed Jan 15 02:23:03 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Mail Group Commands): Fix. + Tue Jan 7 09:36:36 1997 Lars Magne Ingebrigtsen * gnus.texi (Summary Buffer Lines): Correction. *** pub/rgnus/GNUS-NEWS Sat Sep 7 10:53:53 1996 --- rgnus/GNUS-NEWS Thu Jan 9 23:52:44 1997 *************** *** 99,101 **** --- 99,103 ---- See `nnmail-prepare-incoming-header-hook'. + *** The nnml mail backend now understands compressed article files. +