From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/83759 Path: news.gmane.org!not-for-mail From: Rasmus Newsgroups: gmane.emacs.gnus.general Subject: Re: Posting styles and Faces Date: Thu, 05 Sep 2013 21:05:02 +0200 Message-ID: <87sixjt7hd.fsf@gmx.us> References: <877gew31mo.fsf@gmx.us> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1378407987 28609 80.91.229.3 (5 Sep 2013 19:06:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 5 Sep 2013 19:06:27 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M32015@lists.math.uh.edu Thu Sep 05 21:06:30 2013 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VHesv-0000Fv-Sh for ding-account@gmane.org; Thu, 05 Sep 2013 21:06:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1VHerr-0004rV-4Z; Thu, 05 Sep 2013 14:05:23 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1VHern-0004rE-RB for ding@lists.math.uh.edu; Thu, 05 Sep 2013 14:05:19 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1VHerl-0007vM-Pu for ding@lists.math.uh.edu; Thu, 05 Sep 2013 14:05:19 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1VHerj-0002Q2-Se for ding@gnus.org; Thu, 05 Sep 2013 21:05:15 +0200 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1VHerh-00087j-1u for ding@gnus.org; Thu, 05 Sep 2013 21:05:13 +0200 Original-Received: from g225139055.adsl.alicedsl.de ([92.225.139.55]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 05 Sep 2013 21:05:13 +0200 Original-Received: from rasmus by g225139055.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 05 Sep 2013 21:05:13 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 144 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: g225139055.adsl.alicedsl.de Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAAAAAByaaZbAAAAAmJLR0QA/4ePzL8AAAAJcEhZ cwAAAEgAAABIAEbJaz4AAAFfSURBVEgN7cHBdRtBDETBHxJSQSRIBaEglM6mr96ZpUSJ9NLizc/P VfyLxrxnVLxFmHfEkOINVeCK4GeiZbs99iR/JLvFIQUlK3hl3MCwqDikh2sWhy42B4udXHCxmFOY LRw8CA/gYGtuilM6edCYGa6Ei+8EY66V+U4wxQtyHZIPnZhX0tLMuDhlYe6KJ85sDRJbNOaueGIO aUZsE+KrqOlO7pwc0jhZJocvpgOoST44WARm6RoQi4Do7gQquHGwpHCw1LClEEvUDHfmZCZZSixl qgi2EJ/MSUyxpHBBdAnEjfhgTkbBZgUBhFTiUZiTMCcHDqCbDh612LJDbEopuORkMxMsnbi45O5m EWYTKnPFA2YxaQ4RiDG/1e4EsyiZYYkGm2dpg6xmSYH5NJ7gm7KjQQQnNeZO7aUzCCJlJ4QUfJKD u4EQ5Ztmi+CKwcDA8CM9DkBgfqbYrOC/v94vK5fsMt898OUAAAAASUVORK5CYII= User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) Cancel-Lock: sha1:zRwc0aBGXb4gT8BUFz65rgPy0R4= X-Spam-Score: -4.3 (----) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:83759 Archived-At: Hi Katsumi, Katsumi Yamaoka 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