From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15748 Path: main.gmane.org!not-for-mail From: Jochen_Hayek@acm.org Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-uu-post-insert-binary-in-article is not correct Date: Mon, 27 Jul 1998 14:25:53 GMT Organization: Hayek@Berlin Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: Jochen_Hayek@acm.org NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035154731 23813 80.91.224.250 (20 Oct 2002 22:58:51 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:58:51 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id HAA17212 for ; Mon, 27 Jul 1998 07:31:53 -0700 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id KAA32746 for ; Mon, 27 Jul 1998 10:27:42 -0400 Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id IAS31616; Mon, 27 Jul 1998 08:58:17 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 27 Jul 1998 09:26:34 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id JAA05684 for ; Mon, 27 Jul 1998 09:26:20 -0500 (CDT) Original-Received: from sunsite.auc.dk (sunsite.auc.dk [130.225.51.30]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id KAA13807 for ; Mon, 27 Jul 1998 10:26:13 -0400 (EDT) Original-Received: (qmail 15422 invoked by uid 509); 27 Jul 1998 14:25:55 -0000 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: emacs.ding X-Attribution: JH X-URL: http://www.ACM.org/~Jochen_Hayek/ X-Newsreader: Gnus v5.6.27/Emacs 20.2 Original-Lines: 110 Original-NNTP-Posting-Host: 194.131.150.147 Original-NNTP-Posting-Date: Mon, 27 Jul 1998 16:25:53 MET DST Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:15748 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:15748 >>>>> "LMI" == Lars Magne Ingebrigtsen writes: Jochen Hayek writes: JH> gnus-uu-post-insert-binary-in-article does not work JH> for `Gnus Uu Post Encode Method': gnus-uu-post-encode-mime, JH> but only for gnus-uu-post-encode-uuencode and gnus-uu-post-encode-mime-uuencode, JH> because mmencode takes parameters different from uuencode, JH> as supposed in gnus-uu-post-encode-file, JH> used by gnus-uu-post-encode-uuencode and gnus-uu-post-encode-mime . LMI> Yup. Fix in Quassia Gnus v0.24. Well, it definitely still does not work in this conf: Gnus v5.6.27; nntp 5.0; nnmh 1.0; nndraft 1.0; nnfolder 1.0 May I suggest the patch, that you find in the end? (I really did not change more, than I found necessary.) And ... the 1st one of those `multiparts' is `as usual' not being displayed by an MIME-enabled mail reader, so also Gnus would not show it, if the article in is MIME (minor?!) mode. That's btw the way, how I tested it. ================================================================================ *** gnus-uu.el 1998/07/27 13:35:40 1.1 --- gnus-uu.el 1998/07/27 14:25:20 1.3 *************** *** 196,202 **** ("\\.dvi$" "image/dvi") ("\\.mpe?g$" "video/mpeg") ("\\.au$" "audio/basic") ! ("\\.\\(te?xt\\|doc\\|c\\|h\\)$" "text/plain") ("\\.\\(c\\|h\\)$" "text/source") ("read.*me" "text/plain") ("\\.html$" "text/html") --- 196,203 ---- ("\\.dvi$" "image/dvi") ("\\.mpe?g$" "video/mpeg") ("\\.au$" "audio/basic") ! ("\\.doc$" "application/msword") ! ("\\.\\(te?xt\\|c\\|h\\)$" "text/plain") ("\\.\\(c\\|h\\)$" "text/source") ("read.*me" "text/plain") ("\\.html$" "text/html") *************** *** 1793,1799 **** :group 'gnus-extract-post :type 'boolean) ! (defvar gnus-uu-post-binary-separator "--binary follows this line--") (defvar gnus-uu-post-message-id nil) (defvar gnus-uu-post-inserted-file-name nil) (defvar gnus-uu-winconf-post-news nil) --- 1794,1800 ---- :group 'gnus-extract-post :type 'boolean) ! (defvar gnus-uu-post-binary-separator "---") (defvar gnus-uu-post-message-id nil) (defvar gnus-uu-post-inserted-file-name nil) (defvar gnus-uu-winconf-post-news nil) *************** *** 1841,1847 **** ;; Encodes with base64 and adds MIME headers (defun gnus-uu-post-encode-mime (path file-name) (when (zerop (call-process shell-file-name nil t nil shell-command-switch ! (format "%s %s -o %s" "mmencode" path file-name))) (gnus-uu-post-make-mime file-name "base64") t)) --- 1842,1848 ---- ;; Encodes with base64 and adds MIME headers (defun gnus-uu-post-encode-mime (path file-name) (when (zerop (call-process shell-file-name nil t nil shell-command-switch ! (format "%s %s" "mmencode" path))) (gnus-uu-post-make-mime file-name "base64") t)) *************** *** 1852,1857 **** --- 1853,1860 ---- (gnus-uu-choose-action file-name gnus-uu-ext-to-mime-list) file-name)) (insert (format "Content-Transfer-Encoding: %s\n\n" encoding)) + (goto-char (point-max)) + (insert "-----\n") (save-restriction (set-buffer gnus-message-buffer) (goto-char (point-min)) *************** *** 1860,1866 **** (narrow-to-region 1 (point)) (unless (mail-fetch-field "mime-version") (widen) ! (insert "MIME-Version: 1.0\n")) (widen))) ;; Encodes a file PATH with COMMAND, leaving the result in the --- 1863,1870 ---- (narrow-to-region 1 (point)) (unless (mail-fetch-field "mime-version") (widen) ! (insert "MIME-Version: 1.0\n") ! (insert "Content-Type: multipart/mixed; boundary=\"-\"\n")) (widen))) ;; Encodes a file PATH with COMMAND, leaving the result in the .