Changes committed gnus/lisp (5 files)

Modified: ChangeLog gnus-dired.el md4.el message.el sha1.el

Merge from emacs--devo--0

Patches applied:

 * emacs--devo--0  (patch 1442, 1446-1447, 1452-1453, 1460, 1462, 1464, 1471-1472, 1476, 1479-1480, 1482, 1486-1488, 1490)

   - Update from CVS
   - Merge from gnus--devo--0

2008-11-21  Stefan Monnier  <[email protected]>

   * lisp/message.el (message-send-mail): Just set the buffer to unibyte
   rather than use mm-with-unibyte-current-buffer which does a lot more.
   (message-send-mail-partially): Don't bother with
   mm-with-unibyte-current-buffer since it's already been made unibyte by
   message-send-mail.

2008-11-19  Glenn Morris  <[email protected]>

   * texi/doclicense.texi: Change to FDL 1.3.
   Relicense all texi files under FDL 1.3 or later.

2008-11-10  Teodor Zlatanov  <[email protected]>

   * contrib/smtpmail.el (smtpmail-open-stream): Use
   `starttls-any-program-available'.  Auto-load starttls.el for it.

2008-11-01  Juanma Barranquero  <[email protected]>

   * lisp/md4.el (md4-buffer): Fix typo in docstring.
   (md4, md4-64): Doc fixes.
   (md4-pack-int32): Reflow docstring.

Revision: [email protected]/gnus--devo--0--patch-560


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1938 gnus/lisp/ChangeLog:7.1939
--- ChangeLog:7.1938	Thu Dec  4 11:53:38 2008
+++ ChangeLog	Sat Dec  6 18:30:03 2008
@@ -14,12 +14,10 @@
 
 	* gnus-art.el (gnus-article-wash-html-with-w3m): Ditto.
 
-2008-12-03  Stefan Monnier  <[email protected]>
+2008-12-03  Lute Kamstra  <[email protected]>
 
-	* nnimap.el (nnimap-retrieve-headers-progress): Don't use nnimap-demule
-	since the result is inserted in a unibyte buffer anyway.
-	(nnimap-demule-use-string-to-multibyte): Remove.
-	(nnimap-demule): Alias it to mm-string-to-multibyte.
+	* sha1.el: Remove leading * from docstrings of defcustoms,
+	deffaces, defconsts and defuns.
 
 2008-12-03  Katsumi Yamaoka  <[email protected]>
 
@@ -29,6 +27,13 @@
 	rather than message-narrow-to-head since there will be the message
 	header separator.
 
+2008-12-02  Stefan Monnier  <[email protected]>
+
+	* nnimap.el (nnimap-retrieve-headers-progress): Don't use nnimap-demule
+	since the result is inserted in a unibyte buffer anyway.
+	(nnimap-demule-use-string-to-multibyte): Remove.
+	(nnimap-demule): Alias it to mm-string-to-multibyte.
+
 2008-11-29  Reiner Steib  <[email protected]>
 
 	* nnimap.el (nnimap-demule-use-string-to-multibyte): New temporary
@@ -40,6 +45,14 @@
 	* gnus-score.el (gnus-score-find-trace): Handle default score in total
 	score calculation correctly.
 
+2008-11-21  Stefan Monnier  <[email protected]>
+
+	* message.el (message-send-mail): Just set the buffer to unibyte
+	rather than use mm-with-unibyte-current-buffer which does a lot more.
+	(message-send-mail-partially): Don't bother with
+	mm-with-unibyte-current-buffer since it's already been made unibyte by
+	message-send-mail.
+
 2008-11-11  Teodor Zlatanov  <[email protected]>
 
 	* nnrss.el (nnrss-make-hash-index): Debug message of full item.
@@ -66,6 +79,12 @@
 	(auth-source-forget-user-or-password): Allow users to remove cache
 	entries if needed.
 
+2008-11-01  Juanma Barranquero  <[email protected]>
+
+	* md4.el (md4-buffer): Fix typo in docstring.
+	(md4, md4-64): Doc fixes.
+	(md4-pack-int32): Reflow docstring.
+
 2008-10-31  Teodor Zlatanov  <[email protected]>
 
 	* ietf-drums.el (ietf-drums-remove-comments): Localize second
@@ -894,7 +913,7 @@
 	gnus-group-read-ephemeral-gmane-group.
 	(gnus-read-ephemeral-gmane-group-url): Rename from
 	gnus-group-read-ephemeral-gmane-group-url.
-	(gnus-bug-group-download-format-alist):  New variable.
+	(gnus-bug-group-download-format-alist): New variable.
 	(gnus-read-ephemeral-bug-group, gnus-read-ephemeral-debian-bug-group)
 	(gnus-read-ephemeral-emacs-bug-group): New commands.
 
@@ -2145,7 +2164,7 @@
 	(latin-unity-ucs-list):
 	* mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function)
 	(mm-uu-binhex-decode-function):
-	* message.el (gnus-message-group-art, gnus-list-identifiers, )
+	* message.el (gnus-message-group-art, gnus-list-identifiers)
 	(rmail-enable-mime-composing, gnus-local-organization)
 	(gnus-post-method, gnus-select-method, gnus-active-hashtb)
 	(gnus-read-active-file, facemenu-add-face-function)
@@ -9794,7 +9813,7 @@
 	(gnus-summary-display-while-building): Add :version.
 
 	* gnus-start.el (gnus-subscribe-newsgroup-hooks)
-	(gnus-get-top-new-news-hook):Add :version.
+	(gnus-get-top-new-news-hook): Add :version.
 
 	* gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face)
 	(gnus-server-closed-face, gnus-server-denied-face): Add :version.
@@ -9952,7 +9971,7 @@
 
 	* spam.el (spam-backend-article-list-property)
 	(spam-backend-get-article-todo-list)
-	(spam-backend-put-article-todo-list, )
+	(spam-backend-put-article-todo-list)
 	(spam-summary-prepare-exit, spam-resolve-registrations-routine):
 	Resolve registrations separately.
 	(spam-register-routine): Format comments.
Index: gnus-dired.el
diff -u gnus/lisp/gnus-dired.el:7.13 gnus/lisp/gnus-dired.el:7.14
--- gnus-dired.el:7.13	Mon May 19 10:47:42 2008
+++ gnus-dired.el	Sat Dec  6 18:30:03 2008
@@ -69,7 +69,7 @@
   (define-key gnus-dired-mode-map "\C-c\C-m\C-p" 'gnus-dired-print))
 
 ;; FIXME: Make it customizable, change the default to `mail-user-agent' when
-;; this file if renamed (e.g. to `dired-mime.el').
+;; this file is renamed (e.g. to `dired-mime.el').
 
 (defcustom gnus-dired-mail-mode 'gnus-user-agent ;; mail-user-agent
   "Your preference for a mail composition package.
Index: md4.el
diff -u gnus/lisp/md4.el:7.11 gnus/lisp/md4.el:7.12
--- md4.el:7.11	Mon May 19 10:47:42 2008
+++ md4.el	Sat Dec  6 18:30:03 2008
@@ -28,11 +28,12 @@
 ;;; MD4 hash calculation
 
 (defvar md4-buffer (make-vector 4 '(0 . 0))
-  "work buffer of four 32-bit integers")
+  "Work buffer of four 32-bit integers.")
 
 (defun md4 (in n)
-  "Returns the MD4 hash string of 16 bytes long for a string IN of N
-bytes long.  N is required to handle strings containing character 0."
+  "Return the MD4 hash for a string IN of length N bytes.
+The returned hash is 16 bytes long.  N is required to handle
+strings containing the character 0."
   (let (m
 	(b (cons 0 (* n 8)))
 	(i 0)
@@ -115,8 +116,9 @@
   (cons (logand (car x) (car y)) (logand (cdr x) (cdr y))))
 
 (defun md4-64 (m)
-  "Calculate md4 of 64 bytes chunk M which is represented as 16 pairs of
-32 bits integers.  The resulting md4 value is placed in md4-buffer."
+  "Calculate MD4 hash of M.
+M is a 64-bytes chunk, represented as 16 pairs of 32-bit integers.
+The resulting MD4 value is placed in `md4-buffer'."
   (let ((a (aref md4-buffer 0))
 	(b (aref md4-buffer 1))
 	(c (aref md4-buffer 2))
@@ -199,8 +201,9 @@
     str))
 
 (defun md4-pack-int32 (int32)
-  "Pack 32 bits integer in a 4 bytes string as little endian.  A 32 bits
-integer is represented as a pair of two 16 bits integers (cons high low)."
+  "Pack 32 bits integer in a 4 bytes string as little endian.
+A 32 bits integer is represented as a pair of two 16 bits
+integers (cons high low)."
   (let ((str (make-string 4 0))
 	(h (car int32)) (l (cdr int32)))
     (aset str 0 (logand l 255))
Index: message.el
diff -u gnus/lisp/message.el:7.276 gnus/lisp/message.el:7.277
--- message.el:7.276	Thu Dec  4 00:49:19 2008
+++ message.el	Sat Dec  6 18:30:03 2008
@@ -4325,9 +4325,8 @@
 	      (end-of-line)
 	      (insert (format " (%d/%d)" n total))
 	      (widen)
-	      (mm-with-unibyte-current-buffer
-		(funcall (or message-send-mail-real-function
-			     message-send-mail-function))))
+              (funcall (or message-send-mail-real-function
+                           message-send-mail-function)))
 	    (setq n (+ n 1))
 	    (setq p (pop plist))
 	    (erase-buffer)))
@@ -4429,6 +4428,11 @@
 				  (message-fetch-field
 				   "content-transfer-encoding")))))))
 	    (message-insert-courtesy-copy))
+          ;; Let's make sure we encoded all the body.
+          (assert (save-excursion
+                    (goto-char (point-min))
+                    (not (re-search-forward "[^\000-\377]" nil t))))
+          (mm-disable-multibyte)
 	  (if (or (not message-send-mail-partially-limit)
 		  (< (buffer-size) message-send-mail-partially-limit)
 		  (not (message-y-or-n-p
@@ -4453,7 +4457,7 @@
 If you always want Gnus to send messages in one piece, set
 `message-send-mail-partially-limit' to nil.
 ")))
-	      (mm-with-unibyte-current-buffer
+	      (progn
 		(message "Sending via mail...")
 		(funcall (or message-send-mail-real-function
 			     message-send-mail-function)))
Index: sha1.el
diff -u gnus/lisp/sha1.el:7.14 gnus/lisp/sha1.el:7.15
--- sha1.el:7.14	Mon May 19 10:47:42 2008
+++ sha1.el	Sat Dec  6 18:30:03 2008
@@ -63,7 +63,7 @@
   :group 'extensions)
 
 (defcustom sha1-maximum-internal-length 500
-  "*Maximum length of message to use Lisp version of SHA1 function.
+  "Maximum length of message to use Lisp version of SHA1 function.
 If message is longer than this, `sha1-program' is used instead.
 
 If this variable is set to 0, use external program only.
@@ -72,7 +72,7 @@
   :group 'sha1)
 
 (defcustom sha1-program '("sha1sum")
-  "*Name of program to compute SHA1.
+  "Name of program to compute SHA1.
 It must be a string \(program name\) or list of strings \(name and its args\)."
   :type '(repeat string)
   :group 'sha1)
@@ -80,7 +80,7 @@
 (defcustom sha1-use-external (condition-case ()
 				 (executable-find (car sha1-program))
 			       (error))
-  "*Use external SHA1 program.
+  "Use external SHA1 program.
 If this variable is set to nil, use internal function only."
   :type 'boolean
   :group 'sha1)