From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/7139 Path: news.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.gnus.user Subject: Re: Script output in mail-source directory :prescript Date: Sun, 23 Apr 2006 16:09:41 +0200 Organization: Programmerer Ingebrigtsen Message-ID: References: <87mzei1vey.fsf@frog.cs.hut.fi> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1145803227 18837 80.91.229.2 (23 Apr 2006 14:40:27 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 23 Apr 2006 14:40:27 +0000 (UTC) Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Sun Apr 23 16:40:26 2006 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FXfkz-0001lv-JH for gegu-info-gnus-english@m.gmane.org; Sun, 23 Apr 2006 16:40:13 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FXfky-0007Fr-Kh for gegu-info-gnus-english@m.gmane.org; Sun, 23 Apr 2006 10:40:13 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsfeed.news.ucla.edu!canoe.uoregon.edu!hammer.uoregon.edu!logbridge.uoregon.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.cw.net!cw.net!news-FFM2.ecrc.de!uio.no!quimby.gnus.org!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-Lines: 54 Original-NNTP-Posting-Host: quimbies.gnus.org Original-X-Trace: quimby.gnus.org 1145801389 12698 80.91.231.2 (23 Apr 2006 14:09:49 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Sun, 23 Apr 2006 14:09:49 +0000 (UTC) Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAGFBMVEVFOkFxe4ZoM4d6hI+o OzbCqCexusGLa5cU0SvUAAAACXBIWXMAAABIAAAASABGyWs+AAACVUlEQVQ4y12TTW+bQBCGZzEm 111T0StClnI12XZ7JRFOrkYyObPaZvoDUil/v+8MSxx1MMLMM987UEgpeI+ffw/+w/cuCxkfAv8v iT31NXxY7j9/Pz5BAvAejxSiGyEvgXGFAOAA8OehHUsioCBqpKQaaZP/VQ6iljvXIh6Qb4NYQ8rx PSHQBh6eqBwzuaolgEiBGMPGzoiOPrSjjgip12h0dZ8ADquI/VhO0j/1vToMCiTYeTh7t3rYFqDc XJ4vZ5fBAZphyMFeOe2nDCTFmEGJSVkF3h06USgwlngJy2zUo223okgGDoYkPcCh7VRbLXowwHsU LKHoSQlHXOkL6KhDgoYkrek57pgmzMq7ojje/yZuuFqoig3zQlMNj74r7mELECIFWLChHKpCkCWf 9g8yp8piwOJRqcrpFiBZZLooKO74VAmwzLHppTBN7ts7thU2iKnxFYelfqXZCegKprAIQOJK/Oha K7hDRZGDYRf5+ZWXHh41zrwzSFpy88wpNsFxHZaL8xksO25CiIkb26BByVE7yYHooYHH2475RDTp 2A8y9lhz8HwK0skKvAKzoFCDbqweo3E6djkpRK+b1Zxo71BVjyUpjqTNq/kFwChw36loDe2i3ecT vnppcJ5nOm7b87kprGAo6KvsMQemnwBXbGh5A2fu/Qpm6mi8gSGhcBL9PGy7q1taJ2MyuNC270g9 7eLjBqbbMiLmTqtaQXkjj6a+Adset20fyaweb+LgTF53fILGWedS0AYna21Zync2kDngxbl1JNYY 066FOSsvxtT/AAylxaVlSxLtAAAAAElFTkSuQmCC Mail-Copies-To: never X-Now-Playing: Various's _Ministry of Sound: Disco Classics (1)_: "Machine - There But For The Grace Of God" User-Agent: Gnus/5.110005 (No Gnus v0.5) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:N6FOCTKX9NxL8vkbZYE70KozyTE= Original-Xref: shelby.stanford.edu gnu.emacs.gnus:77321 Original-To: info-gnus-english@gnu.org 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 Xref: news.gmane.org gmane.emacs.gnus.user:7139 Archived-At: Timo Lilja writes: > Now, the problem is that if the get-mail-script has a non-zero exit or > produces some output, nothing is shown in the Emacs buffers. Try the following patch: Index: mail-source.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v retrieving revision 7.15 retrieving revision 7.16 diff -c -r7.15 -r7.16 *** mail-source.el 8 Feb 2006 04:17:15 -0000 7.15 --- mail-source.el 23 Apr 2006 14:09:14 -0000 7.16 *************** *** 678,689 **** (sleep-for delay))) (defun mail-source-call-script (script) ! (let ((background nil)) (when (string-match "& *$" script) (setq script (substring script 0 (match-beginning 0)) background 0)) ! (call-process shell-file-name nil background nil ! shell-command-switch script))) ;;; ;;; Different fetchers --- 678,697 ---- (sleep-for delay))) (defun mail-source-call-script (script) ! (let ((background nil) ! (stderr (get-buffer-create " *mail-source-stderr*")) ! result) (when (string-match "& *$" script) (setq script (substring script 0 (match-beginning 0)) background 0)) ! (setq result ! (call-process shell-file-name nil background nil ! shell-command-switch script)) ! (when (and result ! (not (zerop result))) ! (set-buffer stderr) ! (message "Mail source error: %s" (buffer-string))) ! (kill-buffer stderr))) ;;; ;;; Different fetchers -- (domestic pets only, the antidote for overdose, milk.) larsi@gnus.org * Lars Magne Ingebrigtsen