From: yamaoka Date: Thu, 18 May 2000 07:47:49 +0000 (+0000) Subject: Sync with latest Gnus. X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~61 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15c4c372668196f5ed09633e5e22cf7d42c311b8;p=elisp%2Fgnus.git- Sync with latest Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 076d972..f75001b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,31 @@ +2000-05-17 21:16:54 Shenghuo ZHU + + * gnus-group.el (gnus-group-mode-map): Add M-SPACE. + * mml.el (mml-mode-map): Comment out mml-narrow-to-part. + +2000-05-17 21:13:38 Jim Davidson + + * gnus-sum.el (gnus-summary-save-article-rmail): Use + gnus-summary-save-in-rmail. + * message.el (message-output): Ditto. + +2000-05-17 22:37:25 Katsumi Yamaoka + + * gnus-art.el (gnus-emphasize-whitespace-regexp): Doc fix. + +2000-05-17 14:03:49 Shenghuo ZHU + + * rfc2047.el (rfc2047-encode-message-header): Encode if the method + is a charset. + * message.el (message-send-news): Check group name charset. + * gnus-msg.el (gnus-post-news): Decode group name. + (gnus-inews-do-gcc): Encode group name. + +2000-05-17 10:16:32 Karl Kleinpaste + + * gnus-art.el (gnus-emphasize-whitespace-regexp): New variable. + * gnus-util.el (gnus-put-text-property-excluding-newlines): Use it. + 2000-05-17 02:25:11 Shenghuo ZHU * gnus-group.el (gnus-group-mark-line-p): New function. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 25e2488..aeaba89 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -270,6 +270,14 @@ is the face used for highlighting." face)) :group 'gnus-article-emphasis) +(defcustom gnus-emphasize-whitespace-regexp "^[ \t]+\\|[ \t]*\n" + "A regexp to describe whitespace which should not be emphasized. +Typical values are \"^[ \\t]+\\\\|[ \\t]*\\n\" and \"[ \\t]+\\\\|[ \\t]*\\n\". +The former avoids underlining of leading and trailing whitespace, +and the latter avoids underlining any whitespace at all." + :group 'gnus-article-emphasis + :type 'regexp) + (defface gnus-emphasis-bold '((t (:bold t))) "Face used for displaying strong emphasized text (*word*)." :group 'gnus-article-emphasis) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 90bade9..a743640 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -503,6 +503,7 @@ For example: "=" gnus-group-select-group "\r" gnus-group-select-group "\M-\r" gnus-group-quick-select-group + "\M- " gnus-group-visible-select-group [(meta control return)] gnus-group-select-group-ephemerally "j" gnus-group-jump-to-group "n" gnus-group-next-unread-group diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 4bd870f..cbf4929 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -521,6 +521,7 @@ header line with the old Message-ID." (article-buffer 'reply) (t 'message)) (let* ((group (or group gnus-newsgroup-name)) + (charset (gnus-group-name-charset nil group)) (pgroup group) to-address to-group mailing-list to-list newsgroup-p) @@ -531,7 +532,8 @@ header line with the old Message-ID." newsgroup-p (gnus-group-find-parameter group 'newsgroup) mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) - group (gnus-group-real-name group))) + group (gnus-group-name-decode (gnus-group-real-name group) + charset))) (if (or (and to-group (gnus-news-group-p to-group)) newsgroup-p diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 7aa1c33..263248a 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -616,7 +616,7 @@ Bind `print-quoted' and `print-readably' to t while printing." (save-excursion (save-restriction (goto-char beg) - (while (re-search-forward "[ \t]+\\|[ \t]*\n" end 'move) + (while (re-search-forward gnus-emphasize-whitespace-regexp end 'move) (gnus-put-text-property beg (match-beginning 0) prop val) (setq beg (point))) (gnus-put-text-property beg (point) prop val))))) diff --git a/lisp/message.el b/lisp/message.el index 65cf5c7..8e9dbd9 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1357,6 +1357,7 @@ should be sent in several parts. If it is nil, the size is unlimited." (autoload 'mh-send-letter "mh-comp") (autoload 'gnus-point-at-eol "gnus-util") (autoload 'gnus-point-at-bol "gnus-util") + (autoload 'gnus-output-to-rmail "gnus-util") (autoload 'gnus-output-to-mail "gnus-util") (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev") (autoload 'nndraft-request-associate-buffer "nndraft") @@ -3078,6 +3079,7 @@ This sub function is for exclusive use of `message-send-news'." (method (if (message-functionp message-post-method) (funcall message-post-method arg) message-post-method)) + (group-name-charset (gnus-group-name-charset method "")) (message-syntax-checks (if arg (cons '(existing-newsgroups . disabled) @@ -3091,6 +3093,10 @@ This sub function is for exclusive use of `message-send-news'." (message-generate-headers message-required-news-headers) ;; Let the user do all of the above. (run-hooks 'message-header-hook)) + (if group-name-charset + (setq message-syntax-checks + (cons '(valid-newsgroups . disabled) + message-syntax-checks))) (message-cleanup-headers) (if (not (message-check-news-syntax)) nil @@ -3523,7 +3529,7 @@ This sub function is for exclusive use of `message-send-news'." "Append this article to Unix/babyl mail file.." (if (and (file-readable-p filename) (mail-file-babyl-p filename)) - (rmail-output-to-rmail-file filename t) + (gnus-output-to-rmail filename t) (gnus-output-to-mail filename t))) (defun message-cleanup-headers () diff --git a/lisp/mml.el b/lisp/mml.el index 49c915d..2168a3d 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -638,7 +638,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (define-key map "p" 'mml-insert-part) (define-key map "v" 'mml-validate) (define-key map "P" 'mml-preview) - (define-key map "n" 'mml-narrow-to-part) + ;;(define-key map "n" 'mml-narrow-to-part) (define-key main "\M-m" map) main)) @@ -652,7 +652,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." ("Insert" ["Multipart" mml-insert-multipart t] ["Part" mml-insert-part t]) - ["Narrow" mml-narrow-to-part t] + ;;["Narrow" mml-narrow-to-part t] ["Quote" mml-quote-region t] ["Validate" mml-validate t] ["Preview" mml-preview t])) diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index ff07547..7a86311 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -107,8 +107,7 @@ Should be called narrowed to the head of the message." (interactive "*") (save-excursion (goto-char (point-min)) - (let ((alist rfc2047-header-encoding-alist) - elem method) + (let (alist elem method) (while (not (eobp)) (save-restriction (rfc2047-narrow-to-field) @@ -123,6 +122,8 @@ Should be called narrowed to the head of the message." (point-min) (point-max) (car message-posting-charset))) ;; We found something that may perhaps be encoded. + (setq method nil + alist rfc2047-header-encoding-alist) (while (setq elem (pop alist)) (when (or (and (stringp (car elem)) (looking-at (car elem))) @@ -133,6 +134,14 @@ Should be called narrowed to the head of the message." ((eq method 'mime) (rfc2047-encode-region (point-min) (point-max)) (rfc2047-fold-region (point-min) (point-max))) + ((eq method 'default) + (if (and (featurep 'mule) + mail-parse-charset) + (mm-encode-coding-region (point-min) (point-max) + mail-parse-charset))) + ((mm-coding-system-p method) + (if (featurep 'mule) + (mm-encode-coding-region (point-min) (point-max) method))) ;; Hm. (t))) (goto-char (point-max)))))))