Re: Posting styles and Faces

[Rasmus <rasmus@gmx.us>]

Hi Katsumi,

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> Rasmus wrote:
>> I have noticed that I can't insert a (PNG Base64) Face with
>> gnus-posting-styles.  Here's an example that can be evaluated in
>> emacs -q:
>
> #+BEGIN_SRC emacs-lisp
> (progn
>   (require 'gnus-msg)
>   (setq gnus-posting-styles
> 	'((".*"
> 	   (name "Rasmus")
> 	   (address "rasmus@gmx.us")
> 	   (Face "FOO")
> 	   (X-Face "FOO2")
> 	   (-Face "BAR")))
> 	gnus-select-method '(nnml ""))
>   (add-to-list 'gnus-secondary-select-methods
> 	       '(nntp "gmane"
> 		      (nntp-address "news.gmane.org")))
>   (gnus)
>   (gnus-group-mail))
> #+END_SRC
>
>> Note that -Face is present, but neither Face nor X-Face is set.
>
> In that message buffer, what does the variable `message-setup-hook'
> get?  (Try `C-h v message-setup-hook RET' in the message buffer.)
> What I got is as follows and there's nothing strange, i.e., I got
> those three face headers in the message buffer.  That's a mystery.

Mine looks pretty similar to yours cf below.  When switching to
text-mode nothing is shown.  However, when saving the message as a
draft and reading the saved draft in plain text the headers are there!
So I guess Gnus is somehow smart enough to only insert them in the
last moment, which is nice, I guess.  Also, clicking C-c C-c finalizes
the Face headers.

Thanks,
Rasmus

For reference here are the relevant versions:

GNU Emacs 24.3.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.8.2) of
2013-08-26 on rasmus
Gnus v5.13


#+BEGIN_SRC emacs-lisp
Value: ((lambda nil
   (set
    (make-local-variable 'user-mail-address)
    "rasmus@gmx.us")
   (let
       ((user-full-name "Rasmus")
	(user-mail-address "rasmus@gmx.us"))
     (save-excursion
       (message-remove-header "From")
       (message-goto-eoh)
       (insert "From: "
	       (message-make-from)
	       "\n"))))
 (lambda nil
   (save-excursion
     (message-remove-header "X-Face")
     (let
	 ((value "FOO2"))
       (when value
	 (message-goto-eoh)
	 (insert "X-Face" ": " value)
	 (unless
	     (bolp)
	   (insert "\n"))))))
 (lambda nil
   (save-excursion
     (message-remove-header "Face")
     (let
	 ((value "FOO"))
       (when value
	 (message-goto-eoh)
	 (insert "Face" ": " value)
	 (unless
	     (bolp)
	   (insert "\n"))))))
 (lambda nil
   (save-excursion
     (message-remove-header "-Face")
     (let
	 ((value "BAR"))
       (when value
	 (message-goto-eoh)
	 (insert "-Face" ": " value)
	 (unless
	     (bolp)
	   (insert "\n"))))))
 t)
#+END_SRC 

> #v+
> ((lambda nil
>    (set (make-local-variable 'user-mail-address) "rasmus@gmx.us")
>    (let ((user-full-name "Rasmus")
> 	 (user-mail-address "rasmus@gmx.us"))
>      (save-excursion
>        (message-remove-header "From")
>        (message-goto-eoh)
>        (insert "From: " (message-make-from) "\n"))))
>  (lambda nil
>    (save-excursion
>      (message-remove-header "X-Face")
>      (let ((value "FOO2"))
>        (when value
> 	 (message-goto-eoh)
> 	 (insert "X-Face" ": " value)
> 	 (unless (bolp)
> 	   (insert "\n"))))))
>  (lambda nil
>    (save-excursion
>      (message-remove-header "Face")
>      (let ((value "FOO"))
>        (when value
> 	 (message-goto-eoh)
> 	 (insert "Face" ": " value)
> 	 (unless (bolp)
> 	   (insert "\n"))))))
>  (lambda nil
>    (save-excursion
>      (message-remove-header "-Face")
>      (let ((value "BAR"))
>        (when value
> 	 (message-goto-eoh)
> 	 (insert "-Face" ": " value)
> 	 (unless (bolp)
> 	   (insert "\n"))))))
>  t)
> #v-


-- 
May contains speling mistake