From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/7323 Path: news.gmane.org!not-for-mail From: Timo Lilja Newsgroups: gmane.emacs.gnus.user Subject: Re: Script output in mail-source directory :prescript Date: Sat, 13 May 2006 20:04:48 +0300 Organization: Helsinki University of Technology, CS lab Message-ID: <877j4prh3j.fsf@frog.cs.hut.fi> References: <87mzei1vey.fsf@frog.cs.hut.fi> <87hd4gribv.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 1147552841 24833 80.91.229.2 (13 May 2006 20:40:41 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 13 May 2006 20:40:41 +0000 (UTC) Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Sat May 13 22:40:39 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 1Ff0uk-0005MU-FV for gegu-info-gnus-english@m.gmane.org; Sat, 13 May 2006 22:40:38 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ff0uk-00038P-0V for gegu-info-gnus-english@m.gmane.org; Sat, 13 May 2006 16:40:38 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!fi.sn.net!newsfeed2.fi.sn.net!newsfeed3.funet.fi!newsfeeds.funet.fi!news.cs.hut.fi!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-Lines: 49 Original-NNTP-Posting-Host: frog.cs.hut.fi Original-X-Trace: midnight.cs.hut.fi 1147539932 68616268 130.233.192.113 (13 May 2006 17:05:32 GMT) Original-X-Complaints-To: abuse@niksula.cs.hut.fi Original-NNTP-Posting-Date: 13 May 2006 17:05:32 GMT User-Agent: Gnus/5.1007 (Gnus v5.10.7) Emacs/21.4 (gnu/linux) Cancel-Lock: sha1:cWEv32obJjs1MtNZPnnWGcUvrCI= Original-Xref: shelby.stanford.edu gnu.emacs.gnus:77506 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:7323 Archived-At: Lars Magne Ingebrigtsen writes: >Timo Lilja writes: > >> Nope, It didn't work for me but I modified it a bit and now it works: > >Could you send me a diff against the current sources? Okey, here is the diff against the latest CVS: Index: mail-source.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v retrieving revision 7.17 diff -u -r7.17 mail-source.el5A --- mail-source.el 30 Apr 2006 09:44:06 -0000 7.17 +++ mail-source.el 13 May 2006 17:02:32 -0000 @@ -685,13 +685,16 @@ (setq script (substring script 0 (match-beginning 0)) background 0)) (setq result - (call-process shell-file-name nil background nil + (call-process shell-file-name nil stderr nil shell-command-switch script)) - (when (and result + (if (and result (not (zerop result))) - (set-buffer stderr) - (message "Mail source error: %s" (buffer-string))) - (kill-buffer stderr))) + (progn + (split-window-vertically) + (other-window 1) + (switch-to-buffer stderr) + (message "Mail source error: %s" (buffer-string))) + (kill-buffer stderr)))) ;;; ;;; Different fetchers Just occured to me that using routines from gnus-win.el might make this task a bit easier. -- Timo Lilja "It's a 106 miles to Chicago. We've got a full tank of gas, half a pack of cigarettes, it's dark, and we're wearing sunglasses."