From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/80595 Path: news.gmane.org!not-for-mail From: Adam W Newsgroups: gmane.emacs.gnus.general Subject: maildir and ssh Date: Tue, 22 Nov 2011 20:07:07 +0000 (GMT) Message-ID: <1321992427.10810.YahooMailNeo@web29910.mail.ird.yahoo.com> Reply-To: Adam W NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1321993196 5409 80.91.229.12 (22 Nov 2011 20:19:56 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 22 Nov 2011 20:19:56 +0000 (UTC) Cc: "ding@gnus.org" To: "larsi@gnus.org" Original-X-From: ding-owner+M28878@lists.math.uh.edu Tue Nov 22 21:19:48 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RSwol-0001Lm-Hd for ding-account@gmane.org; Tue, 22 Nov 2011 21:19:47 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1RSwnQ-00057t-FU; Tue, 22 Nov 2011 14:18:24 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1RSwce-00054s-Q0 for ding@lists.math.uh.edu; Tue, 22 Nov 2011 14:07:16 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1RSwcd-0000cR-Rb for ding@lists.math.uh.edu; Tue, 22 Nov 2011 14:07:16 -0600 Original-Received: from nm11.bullet.mail.ird.yahoo.com ([77.238.189.64]) by quimby.gnus.org with smtp (Exim 4.72) (envelope-from ) id 1RSwcb-00083T-TT for ding@gnus.org; Tue, 22 Nov 2011 21:07:14 +0100 Original-Received: from [77.238.189.52] by nm11.bullet.mail.ird.yahoo.com with NNFMP; 22 Nov 2011 20:07:08 -0000 Original-Received: from [212.82.108.113] by tm5.bullet.mail.ird.yahoo.com with NNFMP; 22 Nov 2011 20:07:08 -0000 Original-Received: from [127.0.0.1] by omp1022.mail.ird.yahoo.com with NNFMP; 22 Nov 2011 20:07:08 -0000 X-Yahoo-Newman-Property: ymail-3 X-Yahoo-Newman-Id: 105529.88950.bm@omp1022.mail.ird.yahoo.com Original-Received: (qmail 11186 invoked by uid 60001); 22 Nov 2011 20:07:08 -0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s1024; t=1321992428; bh=g6ij4HsRYbumBQSJI0fqKWhjNwkRbznC+Dc82qGVjQY=; h=X-YMail-OSG:Received:X-Mailer:Message-ID:Date:From:Reply-To:Subject:To:Cc:MIME-Version:Content-Type:Content-Transfer-Encoding; b=yx5wdxIAE/sxteWZJivoa1c3HcwbZn3exhP/f8Z5P6l74x47oFgkpdccdupVY+TfWnAJtahXiAvXHoKZC67/vQOkKHvkeJ0NHlJWNvvlTlu6Qq+FXSuBZw2yGL3f1G72rS+gNxB2c8RnLu1x22LeRSANWwXUSfEc66BRLF9KCrY= DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:X-Mailer:Message-ID:Date:From:Reply-To:Subject:To:Cc:MIME-Version:Content-Type:Content-Transfer-Encoding; b=AuZt9eXd7me7yX3p1PWfnhfYMUG3oiiHVfxCgnEj1dI0EYVtvd015py5TPMLgSow5Hxiy8IzBFgaQH0AegLKFuzkWlFZFyLqsUv8N2piiMShfX0tQnww0m9hrOvCj5mvrLzWFtaL8QjUN3nsgvZ9yAiT/flfWfZuOHtDf8V6Po8=; X-YMail-OSG: _GTxUE0VM1k8E7FVbn1VutY9Qk5DNbxqhShdihccbwQchst bCPlDILIeCBSKdC35sX1ByDHJVc6FT9.QdhKmv6.qOFT0URBbZSjTqK5wFcv 1r7Ryobkfs.aEGCapv6MlM9qleG3_N6wPuHI8xfVBc88pCplNwcAkb6OMGd7 B22YCLhf94ogErusRil_PqxIToUAQjzMULwXihkfB_JdPgFK5a2pcS1PrISp h_zVzFhSK6olhuo68HVEz3xHilj8zGpkIkyW3ALogZTB8Xc3kfUvhluJ.JWA 88Xs4RtBrIiooJDEJJSoiwJNGjXxj78JKWtqZy0IKFoCs2I0o4jTtGXLF332 _uj9FzYBlRMsk Original-Received: from [92.231.13.141] by web29910.mail.ird.yahoo.com via HTTP; Tue, 22 Nov 2011 20:07:07 GMT X-Mailer: YahooMailWebService/0.8.115.325013 X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:80595 Archived-At: =0A=0AHey,=0A=0AI found a bug in gnus.=A0 In mail-source.el, mail-source-fe= tch-dir there=0Ais a call to delete-file.=A0 Gnus checks this call to retur= n non-nil.=0AWhen using a remote ssh maildir via ssh, delete-file returns n= il though.=0A=0AHere is the fixed function:=0A=0A(defun mail-source-fetch-m= aildir (source callback)=0A=A0 "Fetcher for maildir sources."=0A=A0 (mail-s= ource-bind (maildir source)=0A=A0=A0=A0 (let ((found 0)=0A=A0=A0=A0=A0=A0 m= ail-source-string)=0A=A0=A0=A0=A0=A0 (unless (string-match "/$" path)=0A=A0= =A0=A0 (setq path (concat path "/")))=0A=A0=A0=A0=A0=A0 (dolist (subdir sub= dirs)=0A=A0=A0=A0 (when (file-directory-p (concat path subdir))=0A=A0=A0=A0= =A0=A0 (setq mail-source-string (format "maildir:%s%s" path subdir))=0A=A0= =A0=A0=A0=A0 (dolist (file (directory-files (concat path subdir) t))=0A=A0= =A0=A0=A0=A0=A0=A0 (when (and (not (file-directory-p file))=0A=A0=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (not (if function=0A=A0=A0=A0=A0=A0=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0 (funcall function file mail-source-crash-box)=0A=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (let ((coding-system-for-w= rite=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 mm-text= -coding-system)=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= (coding-system-for-read=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= =A0=A0=A0=A0 mm-text-coding-system))=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= =A0=A0=A0 (with-temp-file mail-source-crash-box=0A=A0=A0=A0=A0=A0=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0 (insert-file-contents file)=0A=A0=A0=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (goto-char (point-min))=0A;;;=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 ;; Unix mail format=0A;;;=A0=A0=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0 (unless (looking-at "\n*From ")=0A;;;=A0=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (insert "From maildir "=0A;;;=A0=A0= =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (current-time-string= ) "\n"))=0A;;;=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (while (re-search-= forward "^From " nil t)=0A;;;=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= =A0 (replace-match ">From "))=0A;;;=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= =A0 (goto-char (point-max))=0A;;;=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0= (insert "\n\n")=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 ;; M= MDF mail format=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (inse= rt "\001\001\001\001\n"))=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (= delete-file file)=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 nil))))= =0A=A0=A0=A0=A0=A0=A0=A0=A0=A0 (incf found (mail-source-callback callback f= ile))=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0 (mail-source-delete-crash-box)))))=0A= =A0=A0=A0=A0=A0 found)))=0A=0AAny chance you could incorporate this in gnus= ?=0A