*** pub/dgnus/lisp/gnus-mh.el Sat Jun 24 14:47:52 1995 --- dgnus/lisp/gnus-mh.el Wed Jun 28 17:01:33 1995 *************** *** 105,123 **** (setq to (or reply-to from)) (setq to-userid (mail-strip-quoted-names orig-to)) (if (or (string-match "," orig-to) ! (not (string-match (substring to-userid 0 (string-match "@" to-userid)) gnus-user-login-name))) ! (setq cc (concat (if cc (concat cc ", ") "") orig-to)) ! ) ;; mh-yank-cur-msg needs to have mh-show-buffer set in the ;; *Article* buffer ! (setq mh-show-buffer buffer) ! )) ;; save excursion/restriction (mh-find-path) ! (mh-send-sub to (or cc "") (or subject "(None)") config) ;; Erik Selberg 1/23/94 (let ((draft (current-buffer)) mail-buf) (if (not yank) (gnus-configure-windows 'reply) --- 105,124 ---- (setq to (or reply-to from)) (setq to-userid (mail-strip-quoted-names orig-to)) (if (or (string-match "," orig-to) ! (not (string-match (substring to-userid 0 ! (string-match "@" to-userid)) gnus-user-login-name))) ! (setq cc (concat (if cc (concat cc ", ") "") orig-to))) ;; mh-yank-cur-msg needs to have mh-show-buffer set in the ;; *Article* buffer ! (setq mh-show-buffer buffer))) (mh-find-path) ! (mh-send-sub to (or cc "") ! (or subject "(None)") config) ;; Erik Selberg 1/23/94 (let ((draft (current-buffer)) + (gnus-mail-buffer (current-buffer)) mail-buf) (if (not yank) (gnus-configure-windows 'reply) *************** *** 149,156 **** (if yank (let ((last (point))) (mh-yank-cur-msg) ! (goto-char last) ! ))) ;; gnus-mail-forward-using-mhe is contributed by Jun-ichiro Itoh ;; --- 150,156 ---- (if yank (let ((last (point))) (mh-yank-cur-msg) ! (goto-char last)))) ;; gnus-mail-forward-using-mhe is contributed by Jun-ichiro Itoh ;; *************** *** 167,175 **** (mh-find-path) (mh-send-sub to (or cc "") (or subject "(None)") config) ;; Erik Selberg 1/23/94 (let ((draft (current-buffer)) mail-buf) (gnus-configure-windows 'reply-yank) ! (setq mail-buf (cdr (assq 'mail gnus-window-to-buffer))) (pop-to-buffer mail-buf) ;; always in the display, so won't have window probs (switch-to-buffer draft) (kill-buffer mail-buf) ;; mh-e don't use it! --- 167,176 ---- (mh-find-path) (mh-send-sub to (or cc "") (or subject "(None)") config) ;; Erik Selberg 1/23/94 (let ((draft (current-buffer)) + (gnus-mail-buffer (current-buffer)) mail-buf) (gnus-configure-windows 'reply-yank) ! (setq mail-buf (eval (cdr (assq 'mail gnus-window-to-buffer)))) (pop-to-buffer mail-buf) ;; always in the display, so won't have window probs (switch-to-buffer draft) (kill-buffer mail-buf) ;; mh-e don't use it! *** pub/dgnus/lisp/gnus-msg.el Sat Jun 24 14:47:52 1995 --- dgnus/lisp/gnus-msg.el Sun Jun 25 16:31:59 1995 *************** *** 294,300 **** (or (not (eq gnus-use-followup-to t)) (not (gnus-y-or-n-p "Do you want to ignore `Followup-To: poster'? ")))) ! ;; Mail to the poster. Gnus is now RFC1036 compliant. (gnus-summary-reply yank) (gnus-post-news nil gnus-newsgroup-name headers gnus-article-buffer --- 294,300 ---- (or (not (eq gnus-use-followup-to t)) (not (gnus-y-or-n-p "Do you want to ignore `Followup-To: poster'? ")))) ! ;; Mail to the poster. (gnus-summary-reply yank) (gnus-post-news nil gnus-newsgroup-name headers gnus-article-buffer *************** *** 1595,1600 **** --- 1595,1673 ---- "Send a reply to the address near point and include the original article." (interactive) (gnus-article-mail 'yank)) + + (defun gnus-bug () + "Send a bug report to the Gnus maintainers." + (interactive) + (let ((winconf (current-window-configuration))) + (delete-other-windows) + (switch-to-buffer "*Gnus Bug Help*") + (erase-buffer) + (insert gnus-bug-message) + (goto-char (point-min)) + (pop-to-buffer "*Gnus Bug*") + (erase-buffer) + (mail-mode) + (mail-setup gnus-maintainer nil nil nil nil nil) + (make-local-variable 'gnus-prev-winconf) + (setq gnus-prev-winconf winconf) + (use-local-map (copy-keymap mail-mode-map)) + (local-set-key "\C-c\C-c" 'gnus-mail-send-and-exit) + (goto-char (point-min)) + (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) + (forward-line 1) + (insert (format "%s\n%s\n\n\n\n\n" (gnus-version) (emacs-version))) + (let ((b (point))) + (gnus-debug) + (goto-char (- b 3))) + (message ""))) + + (defun gnus-debug () + "Attemps to go through the Gnus source file and report what variables have been changed. + The source file has to be in the Emacs load path." + (interactive) + (let ((files '("gnus.el" "gnus-msg.el" "gnus-score.el")) + file dirs expr olist) + (save-excursion + (set-buffer (get-buffer-create " *gnus bug info*")) + (buffer-disable-undo (current-buffer)) + (message "Please wait while we snoop your variables...") + (sit-for 0) + (while files + (erase-buffer) + (setq dirs load-path) + (while dirs + (if (or (not (car dirs)) + (not (stringp (car dirs))) + (not (file-exists-p + (setq file (concat (file-name-as-directory + (car dirs)) (car files)))))) + (setq dirs (cdr dirs)) + (setq dirs nil) + (insert-file-contents file) + (goto-char (point-min)) + (or (re-search-forward "^;;* Internal variables" nil t) + (error "Malformed sources in file %s" file)) + (narrow-to-region (point-min) (point)) + (goto-char (point-min)) + (while (setq expr (condition-case () + (read (current-buffer)) (error nil))) + (and (eq (car expr) 'defvar) + (stringp (nth 3 expr)) + (or (not (boundp (nth 1 expr))) + (not (equal (eval (nth 2 expr)) + (symbol-value (nth 1 expr))))) + (setq olist (cons (nth 1 expr) olist)))))) + (setq files (cdr files))) + (kill-buffer (current-buffer))) + (insert "------------------- Environment follows -------------------\n\n") + (while olist + (if (boundp (car olist)) + (insert "(setq " (symbol-name (car olist)) " '" + (prin1-to-string (symbol-value (car olist))) ")\n") + (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n")) + (setq olist (cdr olist))) + (insert "\n\n"))) (provide 'gnus-msg) *** pub/dgnus/lisp/gnus-uu.el Sat Jun 24 14:47:53 1995 --- dgnus/lisp/gnus-uu.el Wed Jun 28 16:47:16 1995 *************** *** 592,598 **** (setq files (gnus-uu-unpack-files files)) (gnus-uu-add-file (mapcar (lambda (file) (cdr (assq 'name file))) files)) (setq files (nreverse (gnus-uu-get-actions files))) ! (or not-insert (gnus-summary-insert-pseudos files)))) ;; Return a list of files in dir. (defun gnus-uu-scan-directory (dir) --- 592,598 ---- (setq files (gnus-uu-unpack-files files)) (gnus-uu-add-file (mapcar (lambda (file) (cdr (assq 'name file))) files)) (setq files (nreverse (gnus-uu-get-actions files))) ! (or not-insert (gnus-summary-insert-pseudos files save)))) ;; Return a list of files in dir. (defun gnus-uu-scan-directory (dir) *** pub/dgnus/lisp/gnus.el Sat Jun 24 14:47:54 1995 --- dgnus/lisp/gnus.el Wed Jun 28 17:00:43 1995 *************** *** 1291,1297 **** (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls & Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "(ding) Gnus v0.88" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1291,1297 ---- (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls & Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "(ding) Gnus v0.89" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 1661,1666 **** --- 1661,1667 ---- (autoload 'gnus-mail-other-window-using-mail "gnus-msg") (autoload 'gnus-article-mail-with-original "gnus-msg") (autoload 'gnus-article-mail "gnus-msg") + (autoload 'gnus-bug "gnus-msg") ;; gnus-vm (autoload 'gnus-summary-save-in-vm "gnus-vm" nil t) *************** *** 1711,1717 **** ;; character. (defun gnus-truncate-string (str width) ! (substring str width)) (defsubst gnus-simplify-subject-re (subject) "Remove \"Re:\" from subject lines." --- 1712,1718 ---- ;; character. (defun gnus-truncate-string (str width) ! (substring str 0 width)) (defsubst gnus-simplify-subject-re (subject) "Remove \"Re:\" from subject lines." *************** *** 2471,2492 **** (let ((buffers gnus-window-to-buffer) (first t) buf) ! (while buffers ! (setq buf (cdr (car buffers))) ! (if (symbolp buf) ! (setq buf (and (boundp buf) (symbol-value buf)))) ! (and buf ! (get-buffer-window buf) ! (progn ! (set-buffer buf) ! (if first ! (progn ! (switch-to-buffer nntp-server-buffer) ! (setq first nil)) ! (delete-window (get-buffer-window buf))))) ! (setq buffers (cdr buffers))) ! (set-buffer nntp-server-buffer))) ! (defun gnus-version () "Version numbers of this version of Gnus." (interactive) --- 2472,2502 ---- (let ((buffers gnus-window-to-buffer) (first t) buf) ! (save-excursion ! ;; Remove windows on all known Gnus buffers. ! (while buffers ! (setq buf (cdr (car buffers))) ! (if (symbolp buf) ! (setq buf (and (boundp buf) (symbol-value buf)))) ! (and buf ! (get-buffer-window buf) ! (progn ! (if first ! (progn ! (pop-to-buffer buf) ! (switch-to-buffer nntp-server-buffer) ! (setq first nil)) ! (delete-window (get-buffer-window buf))))) ! (setq buffers (cdr buffers))) ! ;; Remove windows on *all* summary buffers. ! (let ((buffers (buffer-list))) ! (while buffers ! (if (and (string-match ! "^\\*Summary" (or (buffer-name (car buffers)) "")) ! (get-buffer-window (car buffers))) ! (delete-window (get-buffer-window (car buffers)))) ! (setq buffers (cdr buffers))))))) ! (defun gnus-version () "Version numbers of this version of Gnus." (interactive) *************** *** 2513,2591 **** (gnus-configure-windows 'info) (Info-goto-node (car (cdr (assq mode gnus-info-nodes)))))) - (defun gnus-bug () - "Send a bug report to the Gnus maintainers." - (interactive) - (let ((winconf (current-window-configuration))) - (delete-other-windows) - (switch-to-buffer "*Gnus Bug Help*") - (erase-buffer) - (insert gnus-bug-message) - (goto-char (point-min)) - (pop-to-buffer "*Gnus Bug*") - (erase-buffer) - (mail-mode) - (mail-setup gnus-maintainer nil nil nil nil nil) - (make-local-variable 'gnus-prev-winconf) - (setq gnus-prev-winconf winconf) - (use-local-map (copy-keymap mail-mode-map)) - (local-set-key "\C-c\C-c" 'gnus-mail-send-and-exit) - (goto-char (point-min)) - (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) - (forward-line 1) - (insert (format "%s\n%s\n\n\n\n\n" (gnus-version) (emacs-version))) - (let ((b (point))) - (gnus-debug) - (goto-char (- b 3))) - (message ""))) - - (defun gnus-debug () - "Attemps to go through the Gnus source file and report what variables have been changed. - The source file has to be in the Emacs load path." - (interactive) - (let ((files '("gnus.el" "gnus-msg.el" "gnus-score.el")) - file dirs expr olist) - (save-excursion - (set-buffer (get-buffer-create " *gnus bug info*")) - (buffer-disable-undo (current-buffer)) - (message "Please wait while we snoop your variables...") - (sit-for 0) - (while files - (erase-buffer) - (setq dirs load-path) - (while dirs - (if (or (not (car dirs)) - (not (stringp (car dirs))) - (not (file-exists-p - (setq file (concat (file-name-as-directory - (car dirs)) (car files)))))) - (setq dirs (cdr dirs)) - (setq dirs nil) - (insert-file-contents file) - (goto-char (point-min)) - (or (re-search-forward "^;;* Internal variables" nil t) - (error "Malformed sources in file %s" file)) - (narrow-to-region (point-min) (point)) - (goto-char (point-min)) - (while (setq expr (condition-case () - (read (current-buffer)) (error nil))) - (and (eq (car expr) 'defvar) - (stringp (nth 3 expr)) - (or (not (boundp (nth 1 expr))) - (not (equal (eval (nth 2 expr)) - (symbol-value (nth 1 expr))))) - (setq olist (cons (nth 1 expr) olist)))))) - (setq files (cdr files))) - (kill-buffer (current-buffer))) - (insert "------------------- Environment follows -------------------\n\n") - (while olist - (if (boundp (car olist)) - (insert "(setq " (symbol-name (car olist)) " '" - (prin1-to-string (symbol-value (car olist))) ")\n") - (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n")) - (setq olist (cdr olist))) - (insert "\n\n"))) - (defun gnus-overload-functions (&optional overloads) "Overload functions specified by optional argument OVERLOADS. If nothing is specified, use the variable gnus-overload-functions." --- 2523,2528 ---- *************** *** 4293,4307 **** (gnus-group-update-group-line))) (gnus-group-position-cursor)) ! (defun gnus-group-unsubscribe-current-group (arg) ! "Toggle subscribe from/to unsubscribe current group." (interactive "P") ! (let ((group (gnus-group-group-name))) ! (or group (error "No newsgroup on current line")) ! (or arg (setq arg (if (<= (gnus-group-group-level) gnus-level-subscribed) ! gnus-level-default-unsubscribed ! gnus-level-default-subscribed))) ! (gnus-group-unsubscribe-group group arg) (gnus-group-next-group 1))) (defun gnus-group-unsubscribe-group (group &optional level) --- 4230,4250 ---- (gnus-group-update-group-line))) (gnus-group-position-cursor)) ! (defun gnus-group-unsubscribe-current-group (n) ! "Toggle subscription of the current group. ! If given numerical prefix, toggle the N next groups." (interactive "P") ! (let ((groups (gnus-group-process-prefix n)) ! group) ! (while groups ! (setq group (car groups) ! groups (cdr groups)) ! (gnus-group-remove-mark group) ! (gnus-group-unsubscribe-group ! group (if (<= (gnus-group-group-level) gnus-level-subscribed) ! gnus-level-default-unsubscribed ! gnus-level-default-subscribed)) ! (gnus-group-update-group-line)) (gnus-group-next-group 1))) (defun gnus-group-unsubscribe-group (group &optional level) *************** *** 6298,6304 **** "%s %s (%d scored, %d total): " "How many articles from" group scored number)))) ! (if (string-equal input "") number input))) (t number)) (quit nil))))) --- 6241,6247 ---- "%s %s (%d scored, %d total): " "How many articles from" group scored number)))) ! (if (string-match "^[ \t]*$" input) number input))) (t number)) (quit nil))))) *************** *** 7433,7440 **** (setq group nil)) (gnus-group-jump-to-group ingroup)) (gnus-summary-search-group backward) ! (let ((group (or group (gnus-summary-search-group backward))) ! (buf gnus-summary-buffer)) (set-buffer sumbuf) (gnus-summary-exit t) ;Update all information. (if (null group) --- 7376,7382 ---- (setq group nil)) (gnus-group-jump-to-group ingroup)) (gnus-summary-search-group backward) ! (let ((group (or group (gnus-summary-search-group backward)))) (set-buffer sumbuf) (gnus-summary-exit t) ;Update all information. (if (null group) *************** *** 7446,7459 **** (gnus-group-jump-to-group group) (if (not (eq gnus-auto-select-next 'quietly)) (progn ! (gnus-summary-read-group group nil no-article buf) (and (string= gnus-newsgroup-name ingroup) (bufferp sumbuf) (buffer-name sumbuf) (progn (set-buffer (setq gnus-summary-buffer sumbuf)) (gnus-summary-exit-no-update t)))) (let ((prevgroup group)) ! (gnus-summary-read-group group nil no-article buf) (while (and (string= gnus-newsgroup-name ingroup) (bufferp sumbuf) (buffer-name sumbuf) --- 7388,7401 ---- (gnus-group-jump-to-group group) (if (not (eq gnus-auto-select-next 'quietly)) (progn ! (gnus-summary-read-group group nil no-article sumbuf) (and (string= gnus-newsgroup-name ingroup) (bufferp sumbuf) (buffer-name sumbuf) (progn (set-buffer (setq gnus-summary-buffer sumbuf)) (gnus-summary-exit-no-update t)))) (let ((prevgroup group)) ! (gnus-summary-read-group group nil no-article sumbuf) (while (and (string= gnus-newsgroup-name ingroup) (bufferp sumbuf) (buffer-name sumbuf) *************** *** 7461,7467 **** (set-buffer gnus-group-buffer) (gnus-summary-read-group (setq prevgroup (gnus-group-group-name)) ! nil no-article buf)) (and (string= prevgroup (gnus-group-group-name)) ;; We have reached the final group in the group ;; buffer. --- 7403,7409 ---- (set-buffer gnus-group-buffer) (gnus-summary-read-group (setq prevgroup (gnus-group-group-name)) ! nil no-article sumbuf)) (and (string= prevgroup (gnus-group-group-name)) ;; We have reached the final group in the group ;; buffer. *************** *** 8115,8120 **** --- 8057,8063 ---- (interactive) (gnus-set-global-variables) (gnus-summary-select-article) + (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer (widen) *************** *** 8126,8131 **** --- 8069,8075 ---- (interactive) (gnus-set-global-variables) (gnus-summary-select-article) + (gnus-configure-windows 'article) (gnus-eval-in-buffer-window gnus-article-buffer (widen) *************** *** 8527,8532 **** --- 8471,8477 ---- (text-mode) (use-local-map (copy-keymap (current-local-map))) (local-set-key "\C-c\C-c" 'gnus-summary-edit-article-done) + (buffer-enable-undo) (goto-char (point-min)) (search-forward "\n\n" nil t)) *************** *** 8540,8545 **** --- 8485,8491 ---- (gnus-article-mode) (use-local-map gnus-article-mode-map) (setq buffer-read-only t) + (buffer-disable-undo) (pop-to-buffer gnus-summary-buffer))) (defun gnus-summary-fancy-query () *************** *** 9789,9795 **** ;; Summary extract commands ! (defun gnus-summary-insert-pseudos (pslist) (let ((buffer-read-only nil) (article (gnus-summary-article-number)) b) --- 9735,9741 ---- ;; Summary extract commands ! (defun gnus-summary-insert-pseudos (pslist &optional not-view) (let ((buffer-read-only nil) (article (gnus-summary-article-number)) b) *************** *** 9824,9830 **** action (mapconcat (lambda (f) f) files " "))))) (setq ps (cdr ps))))) ! (if gnus-view-pseudos (while pslist (and (assq 'execute (car pslist)) (gnus-execute-command (cdr (assq 'execute (car pslist))) --- 9770,9776 ---- action (mapconcat (lambda (f) f) files " "))))) (setq ps (cdr ps))))) ! (if (and gnus-view-pseudos (not not-view)) (while pslist (and (assq 'execute (car pslist)) (gnus-execute-command (cdr (assq 'execute (car pslist))) *************** *** 9928,9947 **** ;; Duplicate almost all summary keystrokes in the article mode map. (let ((commands ! (list "#" "\M-#" "\C-c\M-#" "n" "p" ! "N" "P" "\M-\C-n" "\M-\C-p" "." "\M-s" "\M-r" ! "<" ">" "l" "j" "^" "\M-^" "-" "u" "U" "d" "D" ! "\M-u" "\M-U" "k" "\C-k" "\M-\C-k""x" "X" ! "\M-\C-x" "\M-\177" "b" "B" "$" "w" "\C-c\C-r" ! "t" "\M-t" "C" "S" ! "m" "o" "\C-o" "|" "\M-m" "\M-\C-m" "\M-k" "M" ! "V" "\C-c\C-d"))) (while commands (define-key gnus-article-mode-map (car commands) 'gnus-article-summary-command) (setq commands (cdr commands)))) ! (let ((commands (list "q" "Q" "c" "r" "R" "\C-c\C-f" "m" "a" "f" "F"))) (while commands (define-key gnus-article-mode-map (car commands) 'gnus-article-summary-command-nosave) --- 9874,9912 ---- ;; Duplicate almost all summary keystrokes in the article mode map. (let ((commands ! (list ! " " "\177" "\r" "n" "p" "N" "P" "\M-\C-n" "\M-\C-p" ! "\M-n" "\M-p" "." "," "\M-s" "\M-r" "<" ">" "j" "^" "\M-^" ! "u" "!" "U" "d" "D" "E" "\M-u" "\M-U" "k" "\C-k" "\M-\C-k" ! "\M-\C-l" "e" "#" "\M-#" "\M-\C-t" "\M-\C-s" "\M-\C-h" ! "\M-\C-f" "\M-\C-b" "\M-\C-u" "\M-\C-d" "&" "\C-w" ! "\C-t" "?" "\C-c\M-\C-s" "\C-c\C-s\C-n" "\C-c\C-s\C-a" ! "\C-c\C-s\C-s" "\C-c\C-s\C-d" "\C-c\C-s\C-i" "\C-x\C-s" ! "\M-g" "w" "\C-c\C-r" "\M-t" "C" ! "o" "\C-o" "|" "\M-k" "\M-K" "V" "\C-c\C-d" ! "\C-c\C-i" "x" "X" "s" "t" "g" "?" "l" ! "\C-c\C-v\C-v" "\C-d" "v" "\C-c\C-b" ! ;; "Mt" "M!" "Md" "Mr" ! ;; "Mc" "M " "Me" "Mx" "M?" "Mb" "MB" "M#" "M\M-#" "M\M-r" ! ;; "M\M-\C-r" "MD" "M\M-D" "MS" "MC" "MH" "M\C-c" "Mk" "MK" ! ;; "Ms" "Mc" "Mu" "Mm" "Mk" "Gn" "Gp" "GN" "GP" "G\C-n" "G\C-p" ! ;; "G\M-n" "G\M-p" "Gf" "Gb" "Gg" "Gl" "Gp" "Tk" "Tl" "Ti" "TT" ! ;; "Ts" "TS" "Th" "TH" "Tn" "Tp" "Tu" "Td" "T#" "A " "An" "A\177" "Ap" ! ;; "A\r" "A<" "A>" "Ab" "Ae" "A^" "Ar" "Aw" "Ac" "Ag" "At" "Am" ! ;; "As" "Wh" "Ws" "Wc" "Wo" "Ww" "Wd" "Wq" "Wf" "Wt" "W\C-t" ! ;; "WT" "WA" "Wa" "WH" "WC" "WS" "Wb" "Hv" "Hf" "Hd" "Hh" "Hi" ! ;; "Be" "B\177" "Bm" "Br" "Bw" "Bc" "Bq" "Bi" "Oo" "Om" "Or" ! ;; "Of" "Oh" "Ov" "Op" "Vu" "V\C-s" "V\C-r" "Vr" "V&" "VT" "Ve" ! ;; "VD" "Vk" "VK" "Vsn" "Vsa" "Vss" "Vsd" "Vsi" ! ))) (while commands (define-key gnus-article-mode-map (car commands) 'gnus-article-summary-command) (setq commands (cdr commands)))) ! (let ((commands (list "q" "Q" "c" "r" "R" "\C-c\C-f" "m" "a" "f" "F" ! ;; "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP" ! "="))) (while commands (define-key gnus-article-mode-map (car commands) 'gnus-article-summary-command-nosave) *************** *** 9990,9995 **** --- 9955,9962 ---- (if (get-buffer gnus-article-buffer) (save-excursion (set-buffer gnus-article-buffer) + (buffer-disable-undo) + (setq buffer-read-only t) (gnus-add-current-to-buffer-list) (or (eq major-mode 'gnus-article-mode) (gnus-article-mode))) *************** *** 10321,10327 **** (goto-char (point-min)) (search-forward "\n\n" nil t) (end-of-line 1) ! (let ((paragraph-start "^\\W") (adaptive-fill-regexp "[ \t]*\\([|#:<;>*]+ *\\)?") (adaptive-fill-mode t)) (while (not (eobp)) --- 10288,10294 ---- (goto-char (point-min)) (search-forward "\n\n" nil t) (end-of-line 1) ! (let ((paragraph-start "^[>|#:<;* ]*[ \t]*$") (adaptive-fill-regexp "[ \t]*\\([|#:<;>*]+ *\\)?") (adaptive-fill-mode t)) (while (not (eobp)) *************** *** 12378,12384 **** (eq 'bookmark (car (car marked))) (eq 'killed (car (car marked))) (setcdr (car marked) ! (gnus-compress-sequence (sort (cdr (car marked)) '<) t))) (setq marked (cdr marked)))) (setq newsrc (cdr newsrc))))) --- 12345,12354 ---- (eq 'bookmark (car (car marked))) (eq 'killed (car (car marked))) (setcdr (car marked) ! (condition-case () ! (gnus-compress-sequence ! (sort (cdr (car marked)) '<) t) ! (error (cdr (car marked)))))) (setq marked (cdr marked)))) (setq newsrc (cdr newsrc))))) *************** *** 12603,12609 **** (- (point) 2))) (gnus-point-at-eol))) ;; Search for all "words"... ! (while (re-search-forward "[^ \t,\n-]+" eol t) (if (= (char-after (match-beginning 0)) ?!) ;; If the word begins with a bang (!), this is a "not" ;; spec. We put this spec (minus the bang) and the --- 12573,12579 ---- (- (point) 2))) (gnus-point-at-eol))) ;; Search for all "words"... ! (while (re-search-forward "[^ \t,\n]+" eol t) (if (= (char-after (match-beginning 0)) ?!) ;; If the word begins with a bang (!), this is a "not" ;; spec. We put this spec (minus the bang) and the *** pub/dgnus/lisp/nnfolder.el Sat Jun 24 14:47:54 1995 --- dgnus/lisp/nnfolder.el Wed Jun 28 16:47:09 1995 *************** *** 38,44 **** (defvar nnfolder-directory (expand-file-name "~/Mail/") "The name of the mail box file in the users home directory.") ! (defvar nnfolder-active-file (concat nnfolder-directory "active") "The name of the active file.") ;; I renamed this variable to somehting more in keeping with the general GNU --- 38,45 ---- (defvar nnfolder-directory (expand-file-name "~/Mail/") "The name of the mail box file in the users home directory.") ! (defvar nnfolder-active-file ! (concat (file-name-as-directory nnfolder-directory) "active") "The name of the active file.") ;; I renamed this variable to somehting more in keeping with the general GNU *************** *** 60,66 **** close, but not killing it), speeding some things up tremendously, especially such things as moving mail. All buffers always get killed upon server close.") ! (defvar nnfolder-newsgroups-file (concat nnfolder-directory "newsgroups") "Mail newsgroups description file.") (defvar nnfolder-get-new-mail t --- 61,68 ---- close, but not killing it), speeding some things up tremendously, especially such things as moving mail. All buffers always get killed upon server close.") ! (defvar nnfolder-newsgroups-file ! (concat (file-name-as-directory nnfolder-directory) "newsgroups") "Mail newsgroups description file.") (defvar nnfolder-get-new-mail t *************** *** 432,438 **** (make-directory (directory-file-name nnfolder-directory))) (nnfolder-possibly-activate-groups nil) (or (assoc group nnfolder-group-alist) ! (not (file-exists-p (concat nnfolder-directory group))) (progn (setq nnfolder-group-alist (cons (list group (cons 1 0)) nnfolder-group-alist)) --- 434,441 ---- (make-directory (directory-file-name nnfolder-directory))) (nnfolder-possibly-activate-groups nil) (or (assoc group nnfolder-group-alist) ! (not (file-exists-p (concat (file-name-as-directory nnfolder-directory) ! group))) (progn (setq nnfolder-group-alist (cons (list group (cons 1 0)) nnfolder-group-alist)) *************** *** 469,475 **** (if inf () (save-excursion ! (setq file (concat nnfolder-directory group)) (if (file-directory-p (file-truename file)) () (if (not (file-exists-p file)) --- 472,479 ---- (if inf () (save-excursion ! (setq file (concat (file-name-as-directory nnfolder-directory) ! group)) (if (file-directory-p (file-truename file)) () (if (not (file-exists-p file)) *************** *** 648,654 **** (message "nnfolder: Reading incoming mail...")) (setq incoming (nnmail-move-inbox ! (car spools) (concat nnfolder-directory "Incoming"))) (setq incomings (cons incoming incomings)) (setq group (nnmail-get-split-group (car spools) group-in)) (nnmail-split-incoming incoming 'nnfolder-save-mail nil group))) --- 652,660 ---- (message "nnfolder: Reading incoming mail...")) (setq incoming (nnmail-move-inbox ! (car spools) ! (concat (file-name-as-directory nnfolder-directory) ! "Incoming"))) (setq incomings (cons incoming incomings)) (setq group (nnmail-get-split-group (car spools) group-in)) (nnmail-split-incoming incoming 'nnfolder-save-mail nil group))) *** pub/dgnus/lisp/ChangeLog Sat Jun 24 14:47:56 1995 --- dgnus/lisp/ChangeLog Wed Jun 28 16:47:09 1995 *************** *** 1,8 **** Sat Jun 24 14:11:58 1995 Lars Magne Ingebrigtsen * gnus.el (gnus-bug): Use gnus-mail-send-and-exit. (gnus-summary-line-format-alist): Int instead of char with %e. ! (gnus-format-max-width): Mule defefinition. Sat Jun 24 13:14:40 1995 Lars INGEBRIGTSEN UiO --- 1,35 ---- + Wed Jun 28 16:24:38 1995 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-directory): file-name-as-directory thing. + + * gnus-mh.el (gnus-mail-reply-using-mhe): Set gnus-mail-buffer to + the right buffer. + + * gnus.el (gnus-article-mode-map): Copy all summary keystrokes. + (gnus-summary-insert-pseudos): Don't view if you ask to save + (gnus-summary-edit-article): Enable undo. + + Sun Jun 25 11:47:24 1995 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-next-group): Fixed possible bug on `n' on + last group. + (gnus-remove-some-windows): Didn't delete all Gnus windows. + (gnus-group-unsubscribe-current-group): Use universal-argument as + expected. + (gnus-summary-beginning-of-article): Didn't configure windows. + (gnus-compress-newsrc-alist): Be more lenient in compressing. + (gnus-newsrc-parse-options): "-" was counted as a non-word + character for some reason. + (gnus-articles-to-read): Accept white space. + (gnus-truncate-string): Did the opposite of what it should. + Sat Jun 24 14:11:58 1995 Lars Magne Ingebrigtsen + * gnus.el: 0.88 is released. + * gnus.el (gnus-bug): Use gnus-mail-send-and-exit. (gnus-summary-line-format-alist): Int instead of char with %e. ! (gnus-format-max-width): Mule refefinition. Sat Jun 24 13:14:40 1995 Lars INGEBRIGTSEN UiO *** pub/dgnus/texi/Makefile Sat Jun 24 14:47:56 1995 --- dgnus/texi/Makefile Sun Jun 25 16:28:37 1995 *************** *** 1,10 **** - MAKEINFO=makeinfo TEXI2DVI=texi2dvi all: gnus gnus: gnus.texi ! $(MAKEINFO) -o gnus gnus.texi dvi: gnus.texi $(TEXI2DVI) gnus.texi --- 1,9 ---- TEXI2DVI=texi2dvi all: gnus gnus: gnus.texi ! emacs -batch -q -no-site-file gnus.texi -l texinfmt -f texinfo-format-buffer -f save-buffer dvi: gnus.texi $(TEXI2DVI) gnus.texi *** pub/dgnus/texi/gnus.texi Sat Jun 24 14:47:57 1995 --- dgnus/texi/gnus.texi Wed Jun 28 16:47:16 1995 *************** *** 908,913 **** --- 908,918 ---- into the buffer just like information from any other specifier. @end table + @cindex * + All the "number-of" specs will be filled with an asterisk (@samp{*}) if + no info is available - for instance, if it is a non-activated foreign + group, or a bogus (or semi-bogus) native group. + @vindex gnus-group-mode-line-format The mode line can be changed by setting (@code{gnus-group-mode-line-format}). It doesn't understand that many *************** *** 3633,3638 **** --- 3638,3644 ---- @section Ticking and Marking @cindex article marking @cindex article ticking + @cindex marks There are several marks you can set on an article.