[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-partial.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-partial.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 08:24:51 -0400 |
Index: emacs/lisp/gnus/mm-partial.el
diff -c emacs/lisp/gnus/mm-partial.el:1.4.6.1
emacs/lisp/gnus/mm-partial.el:1.4.6.2
*** emacs/lisp/gnus/mm-partial.el:1.4.6.1 Fri Mar 12 00:02:59 2004
--- emacs/lisp/gnus/mm-partial.el Thu Sep 9 09:36:26 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-partial.el [emacs-unicode-2],
Miles Bader <=