Commit afea040a authored by Miles Bader's avatar Miles Bader
Browse files

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-507

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 100)

   - Update from CVS

2005-08-02  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/mml.el (mml-generate-mime-1): Make the content type default to
   text/plain if the filename is not specified.

2005-08-01  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring
   instead of insert-buffer.

   * lisp/gnus/message.el (message-yank-original): Ditto; set the mark at the
   end of the yanked message.
parent a4fbb790
2005-08-02 Katsumi Yamaoka <yamaoka@jpl.org>
* mml.el (mml-generate-mime-1): Make the content type default to
text/plain if the filename is not specified.
2005-08-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring
instead of insert-buffer.
* message.el (message-yank-original): Ditto; set the mark at the
end of the yanked message.
2005-07-29 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-next-page-1): Reduce the number of
......
......@@ -917,16 +917,16 @@ When called interactively, prompt for REGEXP."
(if (and message-forward-as-mime gnus-uu-digest-buffer)
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
(insert-buffer "*gnus-uu-pre*")
(insert-buffer-substring "*gnus-uu-pre*")
(goto-char (point-max))
(insert-buffer "*gnus-uu-body*"))
(insert-buffer-substring "*gnus-uu-body*"))
(save-excursion
(set-buffer "*gnus-uu-pre*")
(insert (format "\n\n%s\n\n" (make-string 70 ?-)))
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
(insert-buffer "*gnus-uu-pre*"))
(insert-buffer-substring "*gnus-uu-pre*"))
(let ((coding-system-for-write mm-text-coding-system))
(gnus-write-buffer gnus-uu-saved-article-name))))
(save-excursion
......@@ -939,7 +939,7 @@ When called interactively, prompt for REGEXP."
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(goto-char (point-max))
(insert-buffer "*gnus-uu-body*"))
(insert-buffer-substring "*gnus-uu-body*"))
(let ((coding-system-for-write mm-text-coding-system)
(file-name-coding-system nnmail-pathname-coding-system))
(write-region
......
......@@ -3206,7 +3206,9 @@ prefix, and don't delete any headers."
(when (and message-reply-buffer
message-cite-function)
(delete-windows-on message-reply-buffer t)
(insert-buffer message-reply-buffer)
(push-mark (save-excursion
(insert-buffer-substring message-reply-buffer)
(point)))
(unless arg
(funcall message-cite-function))
(message-exchange-point-and-mark)
......
......@@ -409,8 +409,10 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
(let* ((raw (cdr (assq 'raw cont)))
(filename (cdr (assq 'filename cont)))
(type (or (cdr (assq 'type cont))
(and filename (mm-default-file-encoding filename))
"application/octet-stream"))
(if filename
(or (mm-default-file-encoding filename)
"application/octet-stream")
"text/plain")))
coded encoding charset flowed)
(if (and (not raw)
(member (car (split-string type "/")) '("text" "message")))
......@@ -533,8 +535,10 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
(insert "\n\n")
(insert "Content-Type: "
(or (cdr (assq 'type cont))
(and name (mm-default-file-encoding name))
"application/octet-stream")
(if name
(or (mm-default-file-encoding name)
"application/octet-stream")
"text/plain"))
"\n")
(insert "Content-ID: " (message-make-message-id) "\n")
(insert "Content-Transfer-Encoding: "
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment