From d66179690a51e7a26ded8ec7459b414ee39978e7 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 27 Nov 1997 08:32:58 +0000 Subject: [PATCH] sync with qgnus-0.14. --- lisp/ChangeLog | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ lisp/message.el | 34 ++++++++++------- 2 files changed, 134 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a899e64..802c8e4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,117 @@ +Sun Nov 23 16:21:41 1997 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.14 is released. + +Sun Nov 23 14:04:07 1997 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-read-descriptions-file): Make sure Mule is + bound. And gagged. + + * message.el (message-send-mail-with-mh): Use + `mh-new-draft-name'. + + * nnfolder.el (nnfolder-read-folder): Save new buffers. + + * gnus-sum.el (gnus-summary-make-menu-bar): Removed "write to + file". + + * gnus-util.el (gnus-byte-code): Use indirect-function. + + * nntp.el (nntp-open-telnet): Also accept 201. + + * gnus-sum.el (gnus-summary-reparent-thread): Update thread. + + * gnus-score.el (gnus-all-score-files): Don't do anything unless + GROUP. + + * nnmail.el (nnmail-split-it): Save-excursion. + (nnmail-group-pathname): Translate file chars. + +Sun Nov 23 13:41:10 1997 Gunnar Horrigmo + + * gnus-sum.el (gnus-summary-exit): Don't skip if group + disappeared. + +Sun Nov 23 13:32:55 1997 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-normalize-buffer): New function. + (nnfolder-save-mail): Use it. + (nnfolder-request-replace-article): Ditto. + +1997-11-19 Per Abrahamsen + + * message.el (message-header-lines): New widget. + (message-default-headers): Use it. + (message-default-mail-headers): Use it. + (message-default-news-headers): Use it. + +Sun Nov 23 12:44:38 1997 Lars Magne Ingebrigtsen + + * gnus-win.el (gnus-remove-some-windows): Also delete dead summary + windows. + + * gnus-score.el (gnus-score-adaptive): Check whether functions are + bound. + +Sun Nov 23 12:15:00 1997 Hallvard B. Furuseth + + * gnus-sum.el (gnus-summary-limit-include-thread): Interactive + fix. + +Sun Nov 23 07:06:58 1997 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-reparent-thread): Insert Message-ID in + proper place. + +Sat Nov 22 18:30:33 1997 Lars Magne Ingebrigtsen + + * gnus-cus.el (gnus-group-parameters): Add visible. + +Sat Nov 22 18:19:39 1997 Kim-Minh Kaplan + + * message.el (message-setup): Add a newline, if necessary. + +Sat Nov 22 18:04:34 1997 Lars Magne Ingebrigtsen + + * gnus-mh.el (gnus-summary-save-in-folder): Fix for default. + +Sat Nov 22 18:01:26 1997 Didier Verna + + * gnus-sum.el (gnus-summary-remove-bookmark): Interactive spec. + +Mon Nov 17 23:50:51 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (article-display-x-face): Fold case. + +Thu Nov 13 22:57:23 1997 Kenichi Handa + + * gnus/gnus-start.el (gnus-read-descriptions-file): Decode + description if necessary. + + * gnus/nntp.el (nntp-coding-system-for-read): Set default value to + binary. + (nntp-coding-system-for-write): Likewise. + +Thu Nov 13 22:30:19 1997 seokchan lee + + * message.el (message-ignored-supersedes-headers): Ignore more + headers. + +Thu Nov 13 22:28:13 1997 Lars Magne Ingebrigtsen + + * message.el (message-separator-face): Lightened up. + (message-header-other-face): Ditto. + +Thu Nov 13 22:22:11 1997 jari aalto + + * nnmail.el (nnmail-process-mmdf-mail-format): Pop to buffer. + +Thu Nov 13 22:09:39 1997 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-start-draft-setup): Always create group. + + * gnus-agent.el (gnus-agent-fetch-headers): Translate file chars. + Thu Nov 6 20:43:05 1997 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.13 is released. diff --git a/lisp/message.el b/lisp/message.el index cc78f54..e549b51 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -211,7 +211,7 @@ included. Organization, Lines and X-Mailer are optional." :group 'message-headers :type 'regexp) -(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|Return-Path:\\|^Supersedes:" +(defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\||X-Trace:\\|X-Complaints-To:\\|Return-Path:\\|^Supersedes:" "*Header lines matching this regexp will be deleted before posting. It's best to delete old Path and Date headers before posting to avoid any confusion." @@ -538,25 +538,30 @@ If stringp, use this; if non-nil, use no host name (user name only)." (defvar message-postpone-actions nil "A list of actions to be performed after postponing a message.") +(define-widget 'message-header-lines 'text + "All header lines must be LFD terminated." + :valid-regexp "^\\'" + :error "All header lines must be newline terminated") + (defcustom message-default-headers "" "*A string containing header lines to be inserted in outgoing messages. It is inserted before you edit the message, so you can edit or delete these lines." :group 'message-headers - :type 'string) + :type 'message-header-lines) (defcustom message-default-mail-headers "" "*A string of header lines to be inserted in outgoing mails." :group 'message-headers :group 'message-mail - :type 'string) + :type 'message-header-lines) (defcustom message-default-news-headers "" "*A string of header lines to be inserted in outgoing news articles." :group 'message-headers :group 'message-news - :type 'string) + :type 'message-header-lines) ;; Note: could use /usr/ucb/mail instead of sendmail; ;; options -t, and -v if not interactive. @@ -684,7 +689,7 @@ Defaults to `text-mode-abbrev-table'.") (defface message-header-other-face '((((class color) (background dark)) - (:foreground "red4")) + (:foreground "#b00000")) (((class color) (background light)) (:foreground "steel blue")) @@ -720,7 +725,7 @@ Defaults to `text-mode-abbrev-table'.") (defface message-separator-face '((((class color) (background dark)) - (:foreground "blue4")) + (:foreground "blue3")) (((class color) (background light)) (:foreground "brown")) @@ -898,6 +903,7 @@ The cdr of ech entry is a function for applying the face to a region.") (eval-and-compile (autoload 'message-setup-toolbar "messagexmas") + (autoload 'mh-new-draft-name "mh-comp") (autoload 'mh-send-letter "mh-comp") (autoload 'gnus-point-at-eol "gnus-util") (autoload 'gnus-point-at-bol "gnus-util") @@ -1538,7 +1544,7 @@ message-elide-elipsis) will be inserted where the text was killed." (defun message-caesar-buffer-body (&optional rotnum) "Caesar rotates all letters in the current buffer by 13 places. -Used to encode/decode possibly offensive messages (commonly in net.jokes). +Used to encode/decode possiblyun offensive messages (commonly in net.jokes). With prefix arg, specifies the number of places to rotate each letter forward. Mail and USENET news headers are not rotated." (interactive (if current-prefix-arg @@ -2028,10 +2034,7 @@ to find out how to use this." (defun message-send-mail-with-mh () "Send the prepared message buffer with mh." (let ((mh-previous-window-config nil) - (name (make-temp-name - (concat (file-name-as-directory - (expand-file-name message-autosave-directory)) - "msg.")))) + (name (mh-new-draft-name))) (setq buffer-file-name name) ;; MH wants to generate these headers itself. (when message-mh-deletable-headers @@ -3043,7 +3046,8 @@ Headers already prepared in the buffer are not modified." headers) (delete-region (point) (progn (forward-line -1) (point))) (when message-default-headers - (insert message-default-headers)) + (insert message-default-headers) + (or (bolp) (insert ?\n))) (put-text-property (point) (progn @@ -3053,7 +3057,8 @@ Headers already prepared in the buffer are not modified." (forward-line -1) (when (message-news-p) (when message-default-news-headers - (insert message-default-news-headers)) + (insert message-default-news-headers) + (or (bolp) (insert ?\n))) (when message-generate-headers-first (message-generate-headers (delq 'Lines @@ -3061,7 +3066,8 @@ Headers already prepared in the buffer are not modified." (copy-sequence message-required-news-headers)))))) (when (message-mail-p) (when message-default-mail-headers - (insert message-default-mail-headers)) + (insert message-default-mail-headers) + (or (bolp) (insert ?\n))) (when message-generate-headers-first (message-generate-headers (delq 'Lines -- 1.7.10.4