emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/mm-partial.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/mm-partial.el
Date: Sat, 04 Sep 2004 09:44:00 -0400

Index: emacs/lisp/gnus/mm-partial.el
diff -c emacs/lisp/gnus/mm-partial.el:1.5 emacs/lisp/gnus/mm-partial.el:1.6
*** emacs/lisp/gnus/mm-partial.el:1.5   Mon Sep  1 15:45:24 2003
--- emacs/lisp/gnus/mm-partial.el       Sat Sep  4 13:13:43 2004
***************
*** 1,5 ****
  ;;; mm-partial.el --- showing message/partial
! ;; Copyright (C) 2000 Free Software Foundation, Inc.
  
  ;; Author: Shenghuo Zhu <address@hidden>
  ;; Keywords: message partial
--- 1,5 ----
  ;;; mm-partial.el --- showing message/partial
! ;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Shenghuo Zhu <address@hidden>
  ;; Keywords: message partial
***************
*** 25,32 ****
  
  ;;; Code:
  
! (eval-when-compile
!   (require 'cl))
  
  (require 'gnus-sum)
  (require 'mm-util)
--- 25,31 ----
  
  ;;; Code:
  
! (eval-when-compile (require 'cl))
  
  (require 'gnus-sum)
  (require 'mm-util)
***************
*** 43,49 ****
          (gnus-request-article-this-buffer (aref header 0)
                                            gnus-newsgroup-name)
          (when (search-forward id nil t)
!           (let ((nhandles (mm-dissect-buffer)) nid)
              (if (consp (car nhandles))
                  (mm-destroy-parts nhandles)
                (setq nid (cdr (assq 'id
--- 42,49 ----
          (gnus-request-article-this-buffer (aref header 0)
                                            gnus-newsgroup-name)
          (when (search-forward id nil t)
!           (let ((nhandles (mm-dissect-buffer
!                            nil gnus-article-loose-mime)) nid)
              (if (consp (car nhandles))
                  (mm-destroy-parts nhandles)
                (setq nid (cdr (assq 'id
***************
*** 83,92 ****
                                                 (cdr (mm-handle-type b)))))))
                        (< anumber bnumber)))))
        (setq gnus-article-mime-handles
!           (append (if (listp (car gnus-article-mime-handles))
!                       gnus-article-mime-handles
!                     (list gnus-article-mime-handles))
!                   phandles))
        (save-excursion
        (set-buffer (generate-new-buffer " *mm*"))
        (while (setq phandle (pop phandles))
--- 83,89 ----
                                                 (cdr (mm-handle-type b)))))))
                        (< anumber bnumber)))))
        (setq gnus-article-mime-handles
!           (mm-merge-handles gnus-article-mime-handles phandles))
        (save-excursion
        (set-buffer (generate-new-buffer " *mm*"))
        (while (setq phandle (pop phandles))
***************
*** 117,122 ****
--- 114,126 ----
        (if (<= n total)
            (error "Missing part %d" n))
        (kill-buffer (mm-handle-buffer handle))
+       (goto-char (point-min))
+       (let ((point (if (search-forward "\n\n" nil t)
+                        (1- (point))
+                      (point-max))))
+         (goto-char (point-min))
+         (unless (re-search-forward "^mime-version:" point t)
+           (insert "MIME-Version: 1.0\n")))
        (setcar handle (current-buffer))
        (mm-handle-set-cache handle t)))
      (unless no-display
***************
*** 131,141 ****
          (when handles
            ;; It is in article buffer.
            (setq gnus-article-mime-handles
!                 (nconc (if (listp (car gnus-article-mime-handles))
!                          gnus-article-mime-handles
!                          (list gnus-article-mime-handles))
!                        (if (listp (car handles))
!                            handles (list handles)))))
          (mm-handle-set-undisplayer
           handle
           `(lambda ()
--- 135,141 ----
          (when handles
            ;; It is in article buffer.
            (setq gnus-article-mime-handles
!                 (mm-merge-handles gnus-article-mime-handles handles)))
          (mm-handle-set-undisplayer
           handle
           `(lambda ()
***************
*** 149,153 ****
--- 149,155 ----
                  (error nil))
                (delete-region ,(point-min-marker) ,(point-max-marker))))))))))
  
+ (provide 'mm-partial)
+ 
  ;;; arch-tag: 460e7424-05f2-4a1d-a0f2-70ec081eff7d
  ;;; mm-partial.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]