From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55239 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general,gmane.emacs.xemacs.patches Subject: Re: [COMMIT PATCH PACKAGES(ecrypto)] Sync with Gnus Date: Tue, 16 Dec 2003 08:51:28 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1071532341 29422 80.91.224.253 (15 Dec 2003 23:52:21 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 15 Dec 2003 23:52:21 +0000 (UTC) Cc: ding@gnus.org, xemacs-patches@xemacs.org Original-X-From: ding-owner+M3779@lists.math.uh.edu Tue Dec 16 00:52:17 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AW2Vc-0006HY-00 for ; Tue, 16 Dec 2003 00:52:16 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AW2VW-0006No-00; Mon, 15 Dec 2003 17:52:10 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AW2VS-0006Nj-00 for ding@lists.math.uh.edu; Mon, 15 Dec 2003 17:52:06 -0600 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id B799C3A0026 for ; Mon, 15 Dec 2003 17:52:05 -0600 (CST) Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 4.24) id 1AW2VX-0006C0-0l; Mon, 15 Dec 2003 18:52:11 -0500 Original-To: Simon Josefsson X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:J27GhGWDhxYzY6VbRvB9+hy3BM8= X-Payment: hashcash 1.2 0:031215:jas@extundo.com:bee3bde0a3b80331 X-Hashcash: 0:031215:jas@extundo.com:bee3bde0a3b80331 X-Payment: hashcash 1.2 0:031215:ding@gnus.org:48765c7377768de2 X-Hashcash: 0:031215:ding@gnus.org:48765c7377768de2 X-Payment: hashcash 1.2 0:031215:xemacs-patches@xemacs.org:821ed504718aaf94 X-Hashcash: 0:031215:xemacs-patches@xemacs.org:821ed504718aaf94 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32041 32041] / [47 12] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55239 gmane.emacs.xemacs.patches:3639 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55239 Hi, >>>>> In >>>>> Simon Josefsson wrote: > 2003-12-15 Simon Josefsson > * sha1-el.el (autoload): Ignore errors for > executable-find. (XEmacs ecrypto does not require sh-script where > executable.el is located.) > (sha1-use-external): Likewise. [...] > -(defcustom sha1-use-external (executable-find (car sha1-program)) > +(defcustom sha1-use-external (ignore-errors > + (executable-find (car sha1-program))) I noticed that change requires cl at the run-time (in FSFmacs). It is because arguments in defcustom forms aren't expanded or byte-compiled. It is better to replace ignore-errors with condition-case. I'm using the following hook in order to put the CanLock header even to mails: (add-hook 'message-header-hook 'canlock-insert-header t) When I send a mail, it causes an error as follows: Debugger entered--Lisp error: (void-function ignore-errors) (ignore-errors (executable-find (car sha1-program))) eval((ignore-errors (executable-find (car sha1-program)))) custom-initialize-reset(sha1-use-external (ignore-errors (executable-find (car sha1-program)))) custom-declare-variable(sha1-use-external (ignore-errors (executable-find (car sha1-program))) ("/usr/local/share/emacs/21.3.50/site-lisp/gnus/sha1-el.elc" . -1394) :type boolean :group sha1) sha1-binary("...") canlock-sha1("...") canlock-make-cancel-key("" "Turtle Power!") canlock-insert-header() run-hooks(message-header-hook) message-send-mail(nil) -- Katsumi Yamaoka