+2002-01-31 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * message.el (message-reply-headers): Add doc.
+
2002-01-30 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-group.el (gnus-group-delete-group): Nix the entry in
(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
+2002-01-31 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus.texi (Posting Styles): Addition. Suggested by
+ Michael Cook <michael@waxrat.com>.
+
2002-01-30 Katsumi Yamaoka <yamaoka@jpl.org>
* emacs-mime.texi (Customization): Move emacs-w3m stuff backward;
@lisp
((".*"
- (signature "Peacs and happiness")
+ (signature "Peace and happiness")
(organization "What me?"))
("^comp"
(signature "Death to everybody"))
\e$B$=$l$>$l$NMM<0$OG$0U$NNL$N\e(B @dfn{\e$BB0@-\e(B} \e$B$r;}$D;v$,$G$-$^$9!#$=$l$>$l$NB0@-\e(B
\e$B$O\e(B @code{(@var{name} @var{value})} \e$B$NBP$K$h$j@.$jN)$C$F$$$^$9!#B0@-L>\e(B
-\e$B$O!"\e(B@code{signature}, @code{signature-file}, @code{organization}, @code{address}, @code{name}, @code{body} \e$B$N\e(B
-\e$B$I$l$+$G$"$k;v$,$G$-$^$9!#B0@-L>$OJ8;zNs$G$"$k;v$b$G$-$^$9!#$=$N>l9g$O!"\e(B
-\e$B$3$l$O%X%C%@!<L>$H$7$F;H$o$l!"$=$NCM$,5-;v$N%X%C%@!<$KA^F~$5$l$^$9!#$b$7\e(B
-\e$BB0@-L>$,\e(B @code{nil} \e$B$@$C$?$i$=$N%X%C%@!<L>$O:o=|$5$l$^$9!#$b$7B0@-L>\e(B
-\e$B$,\e(B @code{eval} \e$B$@$C$?$i$=$NMM<0$,I>2A$5$l!"7k2L$O<N$F$i$l$^$9!#\e(B
+\e$B$O!"\e(B@code{signature}, @code{signature-file}, @code{address} (\e$B%f!<%6!<$N\e(B
+\e$BEE;R%a!<%k%"%I%l%9\e(B), @code{name} (\e$B%f!<%6!<$NL>A0\e(B) \e$B$^$?$O\e(B @code{body} \e$B$N\e(B
+\e$B$I$l$+$G$"$k;v$,$G$-$^$9!#B0@-L>$OJ8;zNs$^$?$O%7%s%\%k$G$"$k;v$b$G$-$^$9!#\e(B
+\e$B$=$N>l9g$O!"$3$l$O%X%C%@!<L>$H$7$F;H$o$l!"$=$NCM$,5-;v$N%X%C%@!<$KA^F~$5\e(B
+\e$B$l$^$9!#$b$7B0@-L>$,\e(B @code{nil} \e$B$@$C$?$i$=$N%X%C%@!<L>$O:o=|$5$l$^$9!#$b\e(B
+\e$B$7B0@-L>$,\e(B @code{eval} \e$B$@$C$?$i$=$NMM<0$,I>2A$5$l!"7k2L$O<N$F$i$l$^$9!#\e(B
\e$BB0@-CM$OJ8;zNs\e(B (\e$B$=$N$^$^;H$o$l$^$9\e(B)\e$B!"0z?t$NL5$$4X?t\e(B (\e$BJV$jCM$,;H$o$l$^$9\e(B)\e$B!"\e(B
\e$BJQ?t\e(B (\e$B$=$NCM$,;H$o$l$^$9\e(B) \e$B$^$?$O%j%9%H\e(B (\e$B$=$l$O\e(B @code{\e$BI>2A\e(B} \e$B$5$l$F!"JV$j\e(B
\e$BCM$,;H$o$l$^$9\e(B) \e$B$G$"$k;v$,$G$-$^$9!#4X?t$O%;%C%H%"%C%W$5$l$?%a%C%;!<%8%P%C\e(B
\e$B%U%!$G8F$P$l\e(B (@code{eval} \e$B$5$l\e(B) \e$B$^$9!#8=:_$N5-;v$N%X%C%@!<$OJQ\e(B
-\e$B?t\e(B @code{message-reply-headers} \e$B$+$iF@$i$l$^$9!#\e(B
+\e$B?t\e(B @code{message-reply-headers} \e$B$+$iF@$i$l$^$9!#$3$l$O\e(B number subject
+from date id references chars lines xref extra \e$B$N3F%X%C%@!<$+$i@.$k%Y%/\e(B
+\e$B%H%k$G$9!#\e(B
+
+@vindex message-reply-headers
\e$B$b$7!":n@.$7$h$&$H$7$F$$$k%a%C%;!<%8$,%K%e!<%95-;v$+%a!<%k%a%C%;!<%8$G$"\e(B
\e$B$k$+$rD4$Y$?$$$H$-$O!"Fs$D$N4X\e(B
(organization "People's Front Against MWM"))
("^rec.humor"
(signature my-funny-signature-randomizer))
- ((equal (system-name) "gnarly")
+ ((equal (system-name) "gnarly") ;; s \e$B<0\e(B
(signature my-quote-randomizer))
- ((message-news-p)
+ (message-news-p ;; \e$B4X?t%7%s%\%k\e(B
(signature my-news-signature))
+ (window-system ;; \e$BJQ?t%7%s%\%k\e(B
+ ("X-Window-System" (format "%s" window-system)))
+ ;; Larsi \e$B$5$s$KJV;v$r$9$k$H$-$O\e(B
+ ;; Organization \e$B%X%C%@!<$rIU$1$h$&!#\e(B
(header "to" "larsi.*org"
(Organization "Somewhere, Inc."))
- ((posting-from-work-p)
+ ((posting-from-work-p) ;; \e$B%f!<%6!<$,Dj5A$7$?4X?t\e(B
(signature-file "~/.work-signature")
(address "user@@bar.foo")
(body "You are fired.\n\nSincerely, your boss.")
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
(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.")
projects / elisp / gnus.git- / commitdiff