From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/47118 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Problems with PGG and method=pgp mode=sign Date: Thu, 10 Oct 2002 23:23:18 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: <863crlqqjj.fsf@duchess.twilley.org> <86it0at3la.fsf@duchess.twilley.org> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1034286163 26726 127.0.0.1 (10 Oct 2002 21:42:43 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 10 Oct 2002 21:42:43 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17zl4r-0006wn-00 for ; Thu, 10 Oct 2002 23:42:42 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17zkmo-00009r-00; Thu, 10 Oct 2002 16:24:02 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 10 Oct 2002 16:24:44 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id QAA20485 for ; Thu, 10 Oct 2002 16:24:19 -0500 (CDT) Original-Received: (qmail 2279 invoked by alias); 10 Oct 2002 21:23:21 -0000 Original-Received: (qmail 2274 invoked from network); 10 Oct 2002 21:23:21 -0000 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net (HELO yxa.extundo.com) (217.13.230.178) by gnus.org with SMTP; 10 Oct 2002 21:23:21 -0000 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.6/8.12.6) with ESMTP id g9ALNJFt027151 for ; Thu, 10 Oct 2002 23:23:19 +0200 Original-To: ding@gnus.org Mail-Copies-To: nobody X-Hashcash: 0:021010:ding@gnus.org:6dc04afc2cd8e4ad In-Reply-To: <86it0at3la.fsf@duchess.twilley.org> (Jack Twilley's message of "Thu, 10 Oct 2002 13:56:49 -0700") User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2 (i386-debian-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:47118 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:47118 Jack Twilley writes: >>>>>> "Simon" == Simon Josefsson writes: > > [...] > > Simon> Not for me. But your mail failed. Hm. Maybe due to Emacs > Simon> CVS? I'll upgrade and try again. > > I am running up-to-the-minute CVS Gnus with XEmacs out of FreeBSD > ports. Without MULE, probably. There is some known problems with non-mule emacsen. I have proposed this patch, does it help you get rid of the ^M's? Or do you have other problems too? --- mml1991.el.~6.15.~ 2002-10-10 02:54:59.000000000 +0200 +++ mml1991.el 2002-10-10 18:23:30.000000000 +0200 @@ -240,6 +240,9 @@ (error "Encrypt error")) (kill-region (point-min) (point-max)) (insert-buffer pgg-output-buffer) + (goto-char (point-min)) + (while (re-search-forward "\r+$" nil t) + (replace-match "" t t)) (quoted-printable-encode-region (point-min) (point-max)) (goto-char (point-min)) (if headers (insert headers)) Index: mml2015.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/mml2015.el,v retrieving revision 6.56 diff -u -p -u -w -r6.56 mml2015.el --- mml2015.el 2002/10/10 17:30:46 6.56 +++ mml2015.el 2002/10/10 22:14:31 @@ -672,6 +672,9 @@ mm-security-handle 'gnus-details "Quit.") nil)) (with-current-buffer pgg-output-buffer + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) + (replace-match "\n" t t)) (setq handles (mm-dissect-buffer t)) (mm-destroy-parts handle) (mm-set-handle-multipart-parameter @@ -700,6 +703,9 @@ (progn (erase-buffer) (insert-buffer pgg-output-buffer) + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) + (replace-match "\n" t t)) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-info "OK")) (mm-set-handle-multipart-parameter @@ -737,6 +743,9 @@ (prog1 (pgg-verify-region (point-min) (point-max) signature-file t) + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) + (replace-match "\n" t t)) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details (concat (with-current-buffer pgg-output-buffer @@ -770,6 +779,9 @@ (mm-with-unibyte-buffer (insert-buffer text) (pgg-verify-region (point-min) (point-max) nil t)) + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) + (replace-match "\n" t t)) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details (concat (with-current-buffer pgg-output-buffer