From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/14047 Path: news.gmane.org!not-for-mail From: dgiglio@iol.it (daniele.g (alias giglio robbo' d'acciaio)) Newsgroups: gmane.emacs.gnus.user Subject: check the presence of a Face before sending Date: Thu, 05 Aug 2010 12:03:20 +0200 Message-ID: <87pqxxidg7.fsf@father.nostromo.wy> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1281021355 12219 80.91.229.12 (5 Aug 2010 15:15:55 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 5 Aug 2010 15:15:55 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Thu Aug 05 17:15:54 2010 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Oh2Ak-0002qc-4l for gegu-info-gnus-english@m.gmane.org; Thu, 05 Aug 2010 17:15:54 +0200 Original-Received: from localhost ([127.0.0.1]:43406 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Oh2Aj-0001DM-7R for gegu-info-gnus-english@m.gmane.org; Thu, 05 Aug 2010 11:15:53 -0400 Original-Received: from [140.186.70.92] (port=50849 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Oh1zY-0001rR-Li for info-gnus-english@gnu.org; Thu, 05 Aug 2010 11:04:31 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Oh1zT-0002sM-Ix for info-gnus-english@gnu.org; Thu, 05 Aug 2010 11:04:20 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:38765) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Oh1zT-0002qa-Cl for info-gnus-english@gnu.org; Thu, 05 Aug 2010 11:04:15 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1OgxLL-00045E-Qs for info-gnus-english@gnu.org; Thu, 05 Aug 2010 12:06:31 +0200 Original-Received: from 217.203.73.168 ([217.203.73.168]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 05 Aug 2010 12:06:31 +0200 Original-Received: from dgiglio by 217.203.73.168 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 05 Aug 2010 12:06:31 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 29 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 217.203.73.168 Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAMFBMVEUBAAAvAAAwLy9RAgJv AwNZMjJvbGxXUFCRBASpDAy3JCTEKyuSkJCwr6/S0dHq6uqOnWQeAAAAEHRSTlMBlrn0+/zq6/3/ ///++v3+F+q/8gAAAAFiS0dEDxi6ANkAAAAJcEhZcwAAAEgAAABIAEbJaz4AAAG0SURBVDjLvZMx SMNAFIbviDhVSEiGjqWDW6GlAa2TJRGvzhWcRdxaO7lVlBa8cxMUcrq6xK5dilvF0QriWOPWTr1s dTLnpVTTNskk+KbwvuT/393/AsCfCsYBJQ4YMX2pEQOScaB0GaN0GwPWW9EAlh7OIsHSRScaJCmN BBBTWoxUwtgqAikbVrIEkHA2rIQxaZTaUUqI4NuwvY5NhKkVVkJmTsekKYeUzBxQt7ZyYDEtLSeD CmOjmnicUxKvJlzO+VDMvejTE33u1UDhdL6/7PpfuK9gY+HyE94EDEGhPT/aig88dwwKnUXAXM7Y Jyh1NoOuLCsJj4kSUsgO7kXJm83tD+Y4Du/mEb0KjqGS++uKyxgflfeobQUmUL/YOaxzPsgc2Dah M0dU8fYAVr9SiTc/l5nL1/D5e7rH9k8eTRORYFVVkzSPvHGGs7Ihcvk10cSGNNZeumnnSTNUHZGp iUpsSptytd8fpTQDqvrURCMtAa6Mes95TklFMSKamKjoxhI7Re52V4/Tk2SgjoUJzOuGYYpChjKN DEjIN5EhVBQl75fyE7k2u6w+n406umL/+P+pb4pCq43mkyrCAAAAHXRFWHRjb21tZW50AHN0b3Jt X2xvcmRzX2JhZGdlLnBuZx91hDwAAAAASUVORK5CYII= User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) X-No-Archive: Yes Cancel-Lock: sha1:yXDoj7mFT4TO4yzUw1JmFeGI5iM= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org X-Gmane-Expiry: 2010-08-19 Xref: news.gmane.org gmane.emacs.gnus.user:14047 Archived-At: I use (add-hook 'message-send-hook 'random-face-header-insert) to insert a Face header before sending my posts. But this function doesn't check if such header is already present among others. This is my code: --8<---------------cut here---------------start------------->8--- (defun random-face-header-insert () (let* ((faces (directory-files "~/News/xfaces" t "\\.png\\(\\.0\\)?$")) (face (nth (random (length faces)) faces))) (save-excursion (goto-char (point-min)) (insert "Face: " (gnus-convert-png-to-face face) "\n") (when (string-match "0$" face) (insert "Face: " (gnus-convert-png-to-face (replace-match face "0$" "1")) "\n"))))) --8<---------------cut here---------------end--------------->8--- How can I improve it? -- La prima prova di buon senso e' nel non pretendere di risolvere tutto col buon senso. -- Ugo Bernasconi