*** pub/sgnus/lisp/gnus-cite.el Wed Apr 24 06:42:52 1996 --- sgnus/lisp/gnus-cite.el Mon Apr 29 02:33:35 1996 *************** *** 397,403 **** (let ((article (cdr gnus-article-current))) (unless (save-excursion (set-buffer gnus-summary-buffer) ! (gnus-root-id (mail-header-id (gnus-summary-article-header article)))) (gnus-article-hide-citation))))) --- 397,403 ---- (let ((article (cdr gnus-article-current))) (unless (save-excursion (set-buffer gnus-summary-buffer) ! (gnus-root-id (mail-header-references (gnus-summary-article-header article)))) (gnus-article-hide-citation))))) *** pub/sgnus/lisp/gnus-picon.el Wed Apr 24 06:42:53 1996 --- sgnus/lisp/gnus-picon.el Mon Apr 29 02:33:35 1996 *************** *** 102,107 **** --- 102,115 ---- Some people may want to add \"unknown\" to this list." ) + (defvar gnus-picons-x-face-file-name + (format "/tmp/picon-xface.%s.xbm" (user-login-name)) + "The name of the file in which to store the converted X-face header.") + + (defvar gnus-picons-convert-x-face (format "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | pbmtoxbm > %s" gnus-picons-x-face-file-name) + "Command to convert the x-face header into a xbm file." + ) + (defvar gnus-group-annotations nil) (defvar gnus-article-annotations nil) (defvar gnus-x-face-annotations nil) *************** *** 137,150 **** ((stringp variable) variable))) - (defvar gnus-picons-x-face-file-name - (format "/tmp/picon-xface.%s.xbm" (user-login-name)) - "The name of the file in which to store the converted X-face header.") - - (defvar gnus-picons-convert-x-face (format "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | pbmtoxbm > %s" gnus-picons-x-face-file-name) - "Command to convert the x-face header into a xbm file." - ) - (defun gnus-picons-article-display-x-face () "Display the x-face header bitmap in the 'gnus-picons-display-where buffer." ;; delete any old ones. --- 145,150 ---- *** pub/sgnus/lisp/gnus-uu.el Wed Apr 24 06:42:56 1996 --- sgnus/lisp/gnus-uu.el Mon Apr 29 02:33:37 1996 *************** *** 1126,1131 **** --- 1126,1132 ---- (articles process-function &optional sloppy limit no-errors) (let ((state 'first) has-been-begin article result-file result-files process-state + gnus-summary-display-article-function article-series files) (while (and articles *************** *** 1260,1269 **** (make-symbolic-link to-file file))))) (defun gnus-uu-part-number (article) ! (let ((subject (mail-header-subject (gnus-summary-article-header article)))) ! (if (string-match "[0-9]+ */[0-9]+\\|[0-9]+ * of *[0-9]+" ! subject) ! (substring subject (match-beginning 0) (match-end 0)) ""))) (defun gnus-uu-uudecode-sentinel (process event) --- 1261,1271 ---- (make-symbolic-link to-file file))))) (defun gnus-uu-part-number (article) ! (let* ((header (gnus-summary-article-header article)) ! (subject (and header (mail-header-subject header)))) ! (if (and subject ! (string-match "[0-9]+ */[0-9]+\\|[0-9]+ * of *[0-9]+" subject)) ! (match-string 0 subject) ""))) (defun gnus-uu-uudecode-sentinel (process event) *** pub/sgnus/lisp/gnus-vis.el Wed Apr 24 06:42:57 1996 --- sgnus/lisp/gnus-vis.el Mon Apr 29 02:33:47 1996 *************** *** 241,247 **** ("^\\(From\\|Reply-To\\): " ": *\\(.+\\)$" 1 t gnus-button-reply 0) ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+" 0 t gnus-button-mailto 0) ! ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0)) "Alist of headers and regexps to match buttons in article heads. This alist is very similar to `gnus-button-alist', except that each --- 241,250 ---- ("^\\(From\\|Reply-To\\): " ": *\\(.+\\)$" 1 t gnus-button-reply 0) ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+" 0 t gnus-button-mailto 0) ! ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0) ! ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0) ! ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t ! gnus-button-message-id 3)) "Alist of headers and regexps to match buttons in article heads. This alist is very similar to `gnus-button-alist', except that each *** pub/sgnus/lisp/gnus.el Wed Apr 24 06:42:58 1996 --- sgnus/lisp/gnus.el Mon Apr 29 04:16:27 1996 *************** *** 1713,1719 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.79" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1713,1719 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.80" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 2021,2027 **** ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe ! gnus-article-hide-citation gnus-article-fill-cited-article) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge) --- 2021,2028 ---- ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe ! gnus-article-hide-citation gnus-article-fill-cited-article ! gnus-article-hide-citation-in-followups) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge) *************** *** 2554,2573 **** (gnus-visual nil) (spec gnus-summary-line-format-spec) pos) ! (gnus-set-work-buffer) ! (let ((gnus-summary-line-format-spec spec)) ! (gnus-summary-insert-line ! [0 "" "" "" "" "" 0 0 ""] 0 nil 128 t nil "" nil 1) ! (goto-char (point-min)) ! (setq pos (list (cons 'unread (and (search-forward "\200" nil t) ! (- (point) 2))))) ! (goto-char (point-min)) ! (push (cons 'replied (and (search-forward "\201" nil t) (- (point) 2))) ! pos) ! (goto-char (point-min)) ! (push (cons 'score (and (search-forward "\202" nil t) (- (point) 2))) ! pos) ! (setq gnus-summary-mark-positions pos))))) (defun gnus-update-group-mark-positions () (save-excursion --- 2555,2576 ---- (gnus-visual nil) (spec gnus-summary-line-format-spec) pos) ! (save-excursion ! (gnus-set-work-buffer) ! (let ((gnus-summary-line-format-spec spec)) ! (gnus-summary-insert-line ! [0 "" "" "" "" "" 0 0 ""] 0 nil 128 t nil "" nil 1) ! (goto-char (point-min)) ! (setq pos (list (cons 'unread (and (search-forward "\200" nil t) ! (- (point) 2))))) ! (goto-char (point-min)) ! (push (cons 'replied (and (search-forward "\201" nil t) ! (- (point) 2))) ! pos) ! (goto-char (point-min)) ! (push (cons 'score (and (search-forward "\202" nil t) (- (point) 2))) ! pos))) ! (setq gnus-summary-mark-positions pos)))) (defun gnus-update-group-mark-positions () (save-excursion *************** *** 5922,5928 **** (level2 (gnus-info-level info2))) (or (< level1 level2) (and (= level1 level2) ! (< (gnus-info-score info1) (gnus-info-score info2)))))) ;; Group catching up. --- 5925,5931 ---- (level2 (gnus-info-level info2))) (or (< level1 level2) (and (= level1 level2) ! (> (gnus-info-score info1) (gnus-info-score info2)))))) ;; Group catching up. *************** *** 7082,7087 **** --- 7085,7091 ---- (setq gnus-newsgroup-name group) (make-local-variable 'gnus-summary-line-format) (make-local-variable 'gnus-summary-line-format-spec) + (make-local-variable 'gnus-summary-mark-positions) (run-hooks 'gnus-summary-mode-hook)) (defun gnus-summary-make-display-table () *************** *** 11233,11241 **** (error "The current group does not support article editing"))) (let ((articles (gnus-summary-work-articles n)) (prefix (gnus-group-real-prefix gnus-newsgroup-name)) ! (names '((move "move" "Moving") ! (copy "copy" "Copying") ! (crosspost "crosspost" "Crossposting"))) (copy-buf (save-excursion (nnheader-set-temp-buffer " *copy article*"))) art-group to-method new-xref article to-groups) --- 11237,11245 ---- (error "The current group does not support article editing"))) (let ((articles (gnus-summary-work-articles n)) (prefix (gnus-group-real-prefix gnus-newsgroup-name)) ! (names '((move "Move" "Moving") ! (copy "Copy" "Copying") ! (crosspost "Crosspost" "Crossposting"))) (copy-buf (save-excursion (nnheader-set-temp-buffer " *copy article*"))) art-group to-method new-xref article to-groups) *************** *** 11247,11253 **** (setq to-newsgroup (gnus-read-move-group-name (cadr (assq action names)) ! gnus-current-move-group articles prefix)) (set (intern (format "gnus-current-%s-group" action)) to-newsgroup)) (setq to-method (or select-method (gnus-find-method-for-group to-newsgroup))) --- 11251,11258 ---- (setq to-newsgroup (gnus-read-move-group-name (cadr (assq action names)) ! (symbol-value (intern (format "gnus-current-%s-group" action))) ! articles prefix)) (set (intern (format "gnus-current-%s-group" action)) to-newsgroup)) (setq to-method (or select-method (gnus-find-method-for-group to-newsgroup))) *************** *** 12887,12894 **** (defun gnus-read-move-group-name (prompt default articles prefix) "Read a group name." (let* ((split-name (gnus-get-split-value gnus-move-split-methods)) (prom ! (format "Where do you want to %s %s?" prompt (if (> (length articles) 1) (format "these %d articles" (length articles)) --- 12892,12911 ---- (defun gnus-read-move-group-name (prompt default articles prefix) "Read a group name." (let* ((split-name (gnus-get-split-value gnus-move-split-methods)) + group-map + (dum (mapatoms + (lambda (g) + (and (boundp g) + (symbol-name g) + (memq 'respool + (assoc (symbol-name + (car (gnus-find-method-for-group + (symbol-name g)))) + gnus-valid-select-methods)) + (push (list (symbol-name g)) group-map))) + gnus-active-hashtb)) (prom ! (format "%s %s to:" prompt (if (> (length articles) 1) (format "these %d articles" (length articles)) *************** *** 12897,12906 **** (cond ((null split-name) (gnus-completing-read default prom ! gnus-active-hashtb nil nil prefix 'gnus-group-history)) ((= 1 (length split-name)) ! (gnus-completing-read (car split-name) prom gnus-active-hashtb nil nil nil 'gnus-group-history)) (t --- 12914,12923 ---- (cond ((null split-name) (gnus-completing-read default prom ! group-map nil nil prefix 'gnus-group-history)) ((= 1 (length split-name)) ! (gnus-completing-read (car split-name) prom group-map nil nil nil 'gnus-group-history)) (t *************** *** 12938,12951 **** (concat gnus-article-save-directory (car split-name)))) ;; A list of splits was found. (t ! (setq split-name (mapcar (lambda (el) (list el)) ! (nreverse split-name))) ! (let ((result (completing-read ! (concat prompt " ") split-name nil nil))) ! (concat gnus-article-save-directory ! (if (string= result "") ! (caar split-name) ! result))))))) ;; If we have read a directory, we append the default file name. (when (file-directory-p file) (setq file (concat (file-name-as-directory file) --- 12955,12969 ---- (concat gnus-article-save-directory (car split-name)))) ;; A list of splits was found. (t ! (setq split-name (nreverse split-name)) ! (let (result) ! (let ((file-name-history (nconc split-name file-name-history))) ! (setq result ! (read-file-name ! (concat prompt " (`M-p' for defaults) ") ! gnus-article-save-directory ! (car split-name)))) ! (car (push result file-name-history))))))) ;; If we have read a directory, we append the default file name. (when (file-directory-p file) (setq file (concat (file-name-as-directory file) *** pub/sgnus/lisp/message.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/message.el Mon Apr 29 04:28:21 1996 *************** *** 49,55 **** If this variable is nil, no such courtesy message will be added.") ;;;###autoload ! (defvar message-ignored-bounced-headers "^\\(Received\\):" "*Regexp that matches headers to be removed in resent bounced mail.") ;;;###autoload --- 49,55 ---- If this variable is nil, no such courtesy message will be added.") ;;;###autoload ! (defvar message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):" "*Regexp that matches headers to be removed in resent bounced mail.") ;;;###autoload *************** *** 342,348 **** (defvar message-font-lock-keywords (let* ((cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_.@-"))) (list '("^To:" . font-lock-function-name-face) ! '("^B?CC:\\|^Reply-To:" . font-lock-keyword-face) '("^\\(Subject:\\)[ \t]*\\(.+\\)?" (1 font-lock-comment-face) (2 font-lock-type-face nil t)) (list (concat "^\\(" (regexp-quote mail-header-separator) "\\)$") --- 342,348 ---- (defvar message-font-lock-keywords (let* ((cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_.@-"))) (list '("^To:" . font-lock-function-name-face) ! '("^[GBF]?[Cc][Cc]:\\|^Reply-To:" . font-lock-keyword-face) '("^\\(Subject:\\)[ \t]*\\(.+\\)?" (1 font-lock-comment-face) (2 font-lock-type-face nil t)) (list (concat "^\\(" (regexp-quote mail-header-separator) "\\)$") *************** *** 1404,1411 **** (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) (forward-line 1) ! (or (re-search-forward "[^ \n\t]" nil t) ! (y-or-n-p "Empty article. Really post?")))) ;; Check for control characters. (or (message-check-element 'control-chars) (save-excursion --- 1404,1415 ---- (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) (forward-line 1) ! (let ((b (point))) ! (or (re-search-forward message-signature-separator nil t) ! (goto-char (point-max))) ! (beginning-of-line) ! (or (re-search-backward "[^ \n\t]" b t) ! (y-or-n-p "Empty article. Really post? "))))) ;; Check for control characters. (or (message-check-element 'control-chars) (save-excursion *************** *** 1451,1456 **** --- 1455,1463 ---- "Return a \"checksum\" for the current buffer." (let ((sum 0)) (save-excursion + (goto-char (point-min)) + (re-search-forward + (concat "^" (regexp-quote mail-header-separator) "$")) (while (not (eobp)) (setq sum (logxor sum (following-char))) (forward-char 1))) *** pub/sgnus/lisp/nnfolder.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnfolder.el Mon Apr 29 02:33:58 1996 *************** *** 534,539 **** --- 534,540 ---- (setq save-list group-art-list) (nnmail-insert-lines) (nnmail-insert-xref group-art-list) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnfolder-prepare-save-mail-hook) ;; Insert the mail into each of the destination groups. *** pub/sgnus/lisp/nnheader.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnheader.el Mon Apr 29 02:33:58 1996 *************** *** 140,146 **** (defun nnheader-parse-head () (let ((case-fold-search t) ! end ref in-reply-to lines p cur) (goto-char (point-min)) ;; Search to the beginning of the next header. Error messages ;; do not begin with 2 or 3. --- 140,147 ---- (defun nnheader-parse-head () (let ((case-fold-search t) ! (cur (current-buffer)) ! end ref in-reply-to lines p) (goto-char (point-min)) ;; Search to the beginning of the next header. Error messages ;; do not begin with 2 or 3. *************** *** 529,535 **** --- 530,539 ---- (and (listp form) (eq (car form) 'lambda)))) (fset 'nnheader-find-file-noselect 'find-file-noselect) + (fset 'nnheader-insert-raw-file-contents 'insert-file-contents) (provide 'nnheader) + + (run-hooks 'nnheader-load-hook) ;;; nnheader.el ends here *** pub/sgnus/lisp/nnmail.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnmail.el Mon Apr 29 02:33:58 1996 *************** *** 265,270 **** --- 265,273 ---- (copy-syntax-table (standard-syntax-table)) "Syntax table used by `nnmail-split-fancy'.") + (defvar nnmail-prepare-save-mail-hook nil + "Hook called before saving mail.") + (defconst nnmail-version "nnmail 1.0" *************** *** 280,286 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (insert-file-contents file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) --- 283,289 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) *************** *** 692,698 **** (set-buffer (get-buffer-create " *nnmail incoming*")) (buffer-disable-undo (current-buffer)) (erase-buffer) ! (insert-file-contents incoming) (unless (zerop (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) --- 695,701 ---- (set-buffer (get-buffer-create " *nnmail incoming*")) (buffer-disable-undo (current-buffer)) (erase-buffer) ! (nnheader-insert-raw-file-contents incoming) (unless (zerop (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) *** pub/sgnus/lisp/nnmbox.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnmbox.el Mon Apr 29 02:33:59 1996 *************** *** 446,451 **** --- 446,452 ---- (nnmail-insert-lines) (nnmail-insert-xref group-art) (nnmbox-insert-newsgroup-line group-art) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnmbox-prepare-save-mail-hook) group-art)) *** pub/sgnus/lisp/nnmh.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnmh.el Mon Apr 29 02:33:59 1996 *************** *** 394,399 **** --- 394,400 ---- (unless noinsert (nnmail-insert-lines) (nnmail-insert-xref group-art)) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnmh-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") *** pub/sgnus/lisp/nnml.el Wed Apr 24 06:43:00 1996 --- sgnus/lisp/nnml.el Mon Apr 29 02:34:00 1996 *************** *** 33,39 **** (require 'nnheader) (require 'nnmail) (require 'nnoo) ! (eval-when-compile (require 'cl)) (nnoo-declare nnml) --- 33,39 ---- (require 'nnheader) (require 'nnmail) (require 'nnoo) ! (require 'cl) (nnoo-declare nnml) *************** *** 544,549 **** --- 544,550 ---- chars nov-line) (setq chars (nnmail-insert-lines)) (nnmail-insert-xref group-art) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnml-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") *************** *** 584,589 **** --- 585,591 ---- (unless active ;; Perhaps the active file was corrupt? See whether ;; there are any articles in this group. + (nnml-possibly-change-directory group) (unless nnml-article-file-alist (setq nnml-article-file-alist (sort *************** *** 592,598 **** (setq active (if nnml-article-file-alist (cons (caar nnml-article-file-alist) ! (car (last nnml-article-file-alist))) (cons 1 0))) (setq nnml-group-alist (cons (list group active) nnml-group-alist))) (setcdr active (1+ (cdr active))) --- 594,600 ---- (setq active (if nnml-article-file-alist (cons (caar nnml-article-file-alist) ! (caar (last nnml-article-file-alist))) (cons 1 0))) (setq nnml-group-alist (cons (list group active) nnml-group-alist))) (setcdr active (1+ (cdr active))) *** pub/sgnus/lisp/nnsoup.el Wed Apr 24 06:43:01 1996 --- sgnus/lisp/nnsoup.el Mon Apr 29 02:34:01 1996 *************** *** 601,606 **** --- 601,611 ---- (mailbuf (current-buffer))) (unwind-protect (save-excursion + (save-restriction + (message-narrow-to-headers) + (if (equal kind "mail") + (message-generate-headers message-required-mail-headers) + (message-generate-headers message-required-news-headers))) (set-buffer tembuf) (erase-buffer) (insert-buffer-substring mailbuf) *************** *** 608,617 **** (save-restriction (message-narrow-to-headers) ;; Remove some headers. ! (message-remove-header message-ignored-mail-headers t) ! (if (equal kind "mail") ! (message-generate-headers message-required-mail-headers) ! (message-generate-headers message-required-news-headers))) (goto-char (point-max)) ;; require one newline at the end. (or (= (preceding-char) ?\n) --- 613,619 ---- (save-restriction (message-narrow-to-headers) ;; Remove some headers. ! (message-remove-header message-ignored-mail-headers t)) (goto-char (point-max)) ;; require one newline at the end. (or (= (preceding-char) ?\n) *** pub/sgnus/lisp/nnspool.el Wed Apr 24 06:43:01 1996 --- sgnus/lisp/nnspool.el Mon Apr 29 02:34:01 1996 *************** *** 466,472 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (insert-file-contents file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) --- 466,472 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) *** pub/sgnus/lisp/ChangeLog Wed Apr 24 06:43:07 1996 --- sgnus/lisp/ChangeLog Mon Apr 29 04:28:21 1996 *************** *** 1,4 **** --- 1,61 ---- + Mon Apr 29 02:24:14 1996 Lars Magne Ingebrigtsen + + * message.el (message-check-news-syntax): Better `empty' check. + (message-checksum): Better checksums. + + Sun Apr 28 14:40:04 1996 Lars Magne Ingebrigtsen + + * message.el (message-ignored-bounced-headers): New default. + + * nnsoup.el (nnsoup-store-reply): Generate in mail buffer. + + Sun Apr 28 13:12:48 1996 Wes Hardaker + + * gnus-picon.el: Moved variables. + + Sun Apr 28 11:58:51 1996 Lars Magne Ingebrigtsen + + * nnml.el (nnml-active-number): Change group. + + * gnus.el (gnus-group-sort-by-rank): Reverse logic. + + * message.el (message-font-lock-keywords): New default. + + * gnus-cite.el (gnus-article-hide-citation-in-followups): Didn't + work. + + * gnus.el: Autoload gnus-article-hide-citation-in-followups. + + * nnml.el (nnml-active-number): Bugged out. + + * gnus-uu.el (gnus-uu-grab-articles): Override + `gnus-summary-display-article-function'. + + * gnus.el (gnus-summary-move-article): Didn't use proper defaults + when copying. + + Sun Apr 28 11:40:44 1996 ISO-2022-JP + + * nnheader.el (nnheader-insert-raw-file-contents): Ner alias. + + Sun Apr 28 11:19:58 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-read-save-file-name): Use different prompt when + mulitple matches. + + Wed Apr 24 23:21:21 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-mode): Make gnus-summary-mark-positions + local. + + * gnus-vis.el (gnus-header-button-alist): Buttonize urls in + headers. + + * gnus-uu.el (gnus-uu-part-number): Check more. + Wed Apr 24 04:04:54 1996 Lars Magne Ingebrigtsen + + * gnus.el: September Gnus v0.79 is released. * message.el (message-syntax-checks): Doc fix. *** pub/sgnus/texi/gnus.texi Wed Apr 24 06:43:10 1996 --- sgnus/texi/gnus.texi Mon Apr 29 02:34:05 1996 *************** *** 6710,6715 **** --- 6710,6716 ---- (which is the default), the @code{message-signature-file} file will be inserted instead. If a function, the result from the function will be used instead. If a form, the result from the form will be used instead. + If this variable is @code{nil}, no signature will be inserted at all. @item message-signature-file File containing the signature to be inserted at the end of the buffer. *************** *** 7228,7234 **** Gnus provides a few different methods for storing the mail you send. The default method is to use the @dfn{archive virtual server} to store ! the mail. @vindex gnus-message-archive-method @code{gnus-message-archive-method} says what virtual server Gnus is to --- 7229,7236 ---- Gnus provides a few different methods for storing the mail you send. The default method is to use the @dfn{archive virtual server} to store ! the mail. If you want to disable this completely, you should set ! @code{gnus-message-archive-group} to @code{nil}. @vindex gnus-message-archive-method @code{gnus-message-archive-method} says what virtual server Gnus is to *** pub/sgnus/texi/ChangeLog Wed Apr 24 06:43:09 1996 --- sgnus/texi/ChangeLog Mon Apr 29 02:34:01 1996 *************** *** 1,3 **** --- 1,11 ---- + Wed Apr 24 23:41:21 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Archived Messages): Addition. + + Wed Apr 24 23:41:21 1996 Lars Magne Ingebrigtsen + + * gnus.texi (Archived Messages): Addition. + Wed Apr 17 19:10:17 1996 Lars Magne Ingebrigtsen * gnus.texi (posting): Update to use message.