From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1300
Path: news.gmane.org!not-for-mail
From: Chris Majewski <majewski@cs.ubc.ca>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Starting shell scripts when fetching news/mail?
Date: 07 Oct 2002 13:46:38 -0700
Organization: Department of Computer Science, UBC
Message-ID: <ymhit0ej7td.fsf@okocim.cs.ubc.ca>
References: <853cri3te3.fsf@worldonline.dk>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668096 10706 80.91.229.2 (31 Jan 2006 00:41:36 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:41:36 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:28:56 2006
Original-Path: quimby.gnus.org!news.ccs.neu.edu!news.dfci.harvard.edu!news.cis.ohio-state.edu!news.ems.psu.edu!newsfeed.stanford.edu!nntp.cs.ubc.ca!cs.ubc.ca!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-Sender: majewski@okocim.cs.ubc.ca
Original-NNTP-Posting-Host: okocim.cs.ubc.ca
Original-X-Trace: mughi.cs.ubc.ca 1034023598 6900 142.103.5.21 (7 Oct 2002 20:46:38 GMT)
Original-X-Complaints-To: usenet@cs.ubc.ca
Original-NNTP-Posting-Date: Mon, 7 Oct 2002 20:46:38 +0000 (UTC)
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:1440
Original-Lines: 62
X-Gnus-Article-Number: 1440   Tue Jan 17 17:28:56 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1300
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1300>

Of possible relevance are the following lines from my .emacs

(custom-set-variables
 '(gnus-before-startup-hook (quote (my-pull-newsrc)))
 '(gnus-after-exiting-gnus-hook (quote (my-push-newsrc))))

(defun my-push-newsrc ()
  "Copy Gnus state to remote host"
  (interactive)
  (let ((this-buffer (current-buffer))
        (output-buffer (get-buffer "*rsync command output*")))
    (cond 
     ((yes-or-no-p (format "Push Gnus state to remote host? "))
      (switch-to-buffer output-buffer)
      (message "Copying files to remote host, please wait...")
      (call-process "/home/krzys/src/sh/push-newsrc" 
                    nil
                    "*rsync command output*"
                    1)
      (message "Done")
      (switch-to-buffer this-buffer)))))

(defun my-pull-newsrc ()
  "Copy Gnus state from remote host"
  (interactive)
  (let ((this-buffer (current-buffer))
        (output-buffer (get-buffer "*rsync command output*")))
    (cond 
     ((yes-or-no-p (format "Pull Gnus state from remote host? "))
      (switch-to-buffer output-buffer)
      (message "Copying files from remote host, please wait...")
      (call-process "/home/krzys/src/sh/pull-newsrc" 
                    nil
                    "*rsync command output*"
                    1)
      (message "Done")
      (switch-to-buffer this-buffer)))))


-chris

"Jeppe N. Madsen" <jeppenm@worldonline.dk> writes:

> Hi,
> 
> I've been running Gnus 5.8 for quite a while on W2k/Cygwin/Xemacs and
> now it's time to tweak the setup :-)
> 
> I'm using a number of foreign servers and one requires a ssh tunnel
> to connect. While it's not a big deal to open a shell and start a
> shell script it would be nice if it was possible for Gnus to
> automagically start this when fetching news. Is this possible? Or
> rather has anyone done this successfully and have some code to share?
> 
> I'm also using Gnus to read mail from a pop3 server. I've recently
> installed SpamAssassin/pop3proxy and while it works, again I need to
> fire up a shell to get it rolling. So the same question goes for
> fetching mail: is it possible to start a shell before fetching the
> mail?
> 
> rgds
> Jeppe