From 4c87ebf810597b82486f1cf7f0183587923697c6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 31 Jan 2002 08:16:11 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 5 ++++- texi/ChangeLog | 5 +++++ texi/gnus-ja.texi | 29 +++++++++++++++++++---------- texi/gnus.texi | 27 +++++++++++++++++---------- 5 files changed, 49 insertions(+), 21 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3bcc869..06c435c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-01-31 ShengHuo ZHU + + * message.el (message-reply-headers): Add doc. + 2002-01-30 ShengHuo ZHU * gnus-group.el (gnus-group-delete-group): Nix the entry in diff --git a/lisp/message.el b/lisp/message.el index 1ed6457..9d0871b 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -878,7 +878,10 @@ If stringp, use this; if non-nil, use no host name (user name only)." (sexp :tag "none" :format "%t" t))) (defvar message-reply-buffer nil) -(defvar message-reply-headers nil) +(defvar message-reply-headers nil + "The headers of the current replied article. +It is a vector of the following headers: +\[number subject from date id references chars lines xref extra].") (defvar message-sent-message-via nil) (defvar message-checksum nil) (defvar message-send-actions nil diff --git a/texi/ChangeLog b/texi/ChangeLog index b846b94..bda655f 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,8 @@ +2002-01-31 ShengHuo ZHU + + * gnus.texi (Posting Styles): Addition. Suggested by + Michael Cook . + 2002-01-30 Katsumi Yamaoka * emacs-mime.texi (Customization): Move emacs-w3m stuff backward; diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 1bab22d..4b79912 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -10305,7 +10305,7 @@ Gnus は外へ出て行く全てのメッセージに、一つかそれ以上のそのサーバーのグ @lisp ((".*" - (signature "Peacs and happiness") + (signature "Peace and happiness") (organization "What me?")) ("^comp" (signature "Death to everybody")) @@ -10333,17 +10333,22 @@ Gnus は外へ出て行く全てのメッセージに、一つかそれ以上のそのサーバーのグ それぞれの様式は任意の量の @dfn{属性} を持つ事ができます。それぞれの属性 は @code{(@var{name} @var{value})} の対により成り立っています。属性名 -は、@code{signature}, @code{signature-file}, @code{organization}, @code{address}, @code{name}, @code{body} の -どれかである事ができます。属性名は文字列である事もできます。その場合は、 -これはヘッダー名として使われ、その値が記事のヘッダーに挿入されます。もし -属性名が @code{nil} だったらそのヘッダー名は削除されます。もし属性名 -が @code{eval} だったらその様式が評価され、結果は捨てられます。 +は、@code{signature}, @code{signature-file}, @code{address} (ユーザーの +電子メールアドレス), @code{name} (ユーザーの名前) または @code{body} の +どれかである事ができます。属性名は文字列またはシンボルである事もできます。 +その場合は、これはヘッダー名として使われ、その値が記事のヘッダーに挿入さ +れます。もし属性名が @code{nil} だったらそのヘッダー名は削除されます。も +し属性名が @code{eval} だったらその様式が評価され、結果は捨てられます。 属性値は文字列 (そのまま使われます)、引数の無い関数 (返り値が使われます)、 変数 (その値が使われます) またはリスト (それは @code{評価} されて、返り 値が使われます) である事ができます。関数はセットアップされたメッセージバッ ファで呼ばれ (@code{eval} され) ます。現在の記事のヘッダーは変 -数 @code{message-reply-headers} から得られます。 +数 @code{message-reply-headers} から得られます。これは number subject +from date id references chars lines xref extra の各ヘッダーから成るベク +トルです。 + +@vindex message-reply-headers もし、作成しようとしているメッセージがニュース記事かメールメッセージであ るかを調べたいときは、二つの関 @@ -10364,13 +10369,17 @@ Gnus は外へ出て行く全てのメッセージに、一つかそれ以上のそのサーバーのグ (organization "People's Front Against MWM")) ("^rec.humor" (signature my-funny-signature-randomizer)) - ((equal (system-name) "gnarly") + ((equal (system-name) "gnarly") ;; s 式 (signature my-quote-randomizer)) - ((message-news-p) + (message-news-p ;; 関数シンボル (signature my-news-signature)) + (window-system ;; 変数シンボル + ("X-Window-System" (format "%s" window-system))) + ;; Larsi さんに返事をするときは + ;; Organization ヘッダーを付けよう。 (header "to" "larsi.*org" (Organization "Somewhere, Inc.")) - ((posting-from-work-p) + ((posting-from-work-p) ;; ユーザーが定義した関数 (signature-file "~/.work-signature") (address "user@@bar.foo") (body "You are fired.\n\nSincerely, your boss.") diff --git a/texi/gnus.texi b/texi/gnus.texi index abaa897..a498d14 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -10839,19 +10839,23 @@ then the style is said to @dfn{match}. Each style may contain a arbitrary amount of @dfn{attributes}. Each attribute consists of a @code{(@var{name} @var{value})} pair. The attribute name can be one of @code{signature}, @code{signature-file}, -@code{organization}, @code{address}, @code{name} or @code{body}. The -attribute name can also be a string. In that case, this will be used as -a header name, and the value will be inserted in the headers of the -article; if the value is @code{nil}, the header name will be removed. -If the attribute name is @code{eval}, the form is evaluated, and the -result is thrown away. +@code{address} (user email address), @code{name} (user name) or +@code{body}. The attribute name can also be a string or a symbol. In +that case, this will be used as a header name, and the value will be +inserted in the headers of the article; if the value is @code{nil}, the +header name will be removed. If the attribute name is @code{eval}, the +form is evaluated, and the result is thrown away. The attribute value can be a string (used verbatim), a function with zero arguments (the return value will be used), a variable (its value will be used) or a list (it will be @code{eval}ed and the return value will be used). The functions and sexps are called/@code{eval}ed in the message buffer that is being set up. The headers of the current article -are available through the @code{message-reply-headers} variable. +are available through the @code{message-reply-headers} variable, which +is a vector of the following headers: number subject from date id +references chars lines xref extra. + +@vindex message-reply-headers If you wish to check whether the message you are about to compose is meant to be a news article or a mail message, you can check the values @@ -10871,13 +10875,16 @@ So here's a new example: (organization "People's Front Against MWM")) ("^rec.humor" (signature my-funny-signature-randomizer)) - ((equal (system-name) "gnarly") + ((equal (system-name) "gnarly") ;; a sexp (signature my-quote-randomizer)) - ((message-news-p) + (message-news-p ;; a function symbol (signature my-news-signature)) + (window-system ;; a value symbol + ("X-Window-System" (format "%s" window-system))) + ;; If I'm replying to Larsi, set the Organization header. (header "to" "larsi.*org" (Organization "Somewhere, Inc.")) - ((posting-from-work-p) + ((posting-from-work-p) ;; a user defined function (signature-file "~/.work-signature") (address "user@@bar.foo") (body "You are fired.\n\nSincerely, your boss.") -- 1.7.10.4