Gnus development mailing list
 help / color / mirror / Atom feed
* Re: gnus-uu-post-insert-binary-in-article is not correct
@ 1998-07-27 14:25 Jochen_Hayek
  1998-07-30 20:46 ` Lars Magne Ingebrigtsen
  0 siblings, 1 reply; 11+ messages in thread
From: Jochen_Hayek @ 1998-07-27 14:25 UTC (permalink / raw)



>>>>> "LMI" == Lars Magne Ingebrigtsen <bugs@gnus.org> writes:

Jochen Hayek <Jochen_Hayek@ACM.org> 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
.



^ permalink raw reply	[flat|nested] 11+ messages in thread

end of thread, other threads:[~1998-08-06 13:48 UTC | newest]

Thread overview: 11+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1998-07-27 14:25 gnus-uu-post-insert-binary-in-article is not correct Jochen_Hayek
1998-07-30 20:46 ` Lars Magne Ingebrigtsen
1998-07-30 21:48   ` Jochen_Hayek
1998-07-30 22:46     ` application/msword [was: Re: gnus-uu-post-insert-binary-in-article is not correct] François Pinard
1998-07-31  4:28       ` Andrew J Cosgriff
1998-07-31 10:29       ` Kai Grossjohann
1998-07-31 14:38         ` Jason R Mastaler
1998-07-31  8:18     ` gnus-uu-post-insert-binary-in-article is not correct Darren/Torin/Who Ever...
1998-08-03 14:22       ` Steinar Bang
1998-08-06 12:27         ` Jochen_Hayek
1998-08-06 13:48           ` Steinar Bang

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).