Changes committed gnus/lisp (5 files)

Modified: ChangeLog dgnushack.el lpath.el nnmaildir.el nnrss.el

* nnrss.el (nnrss-request-article): Allow mml-to-mime to generate MIME
article without making inquiry to a user for unknown encoding.

* nnmaildir.el (nnmaildir--group-maxnum, nnmaildir--new-number)
(nnmaildir--scan): Assume i-node and device number that file-attributes
returns might be cons-cell.

* dgnushack.el: Autoload thing-at-point for XEmacs 21.5.

* lpath.el: Fbind cp-supported-codepages for XEmacs 21.5.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2001 gnus/lisp/ChangeLog:7.2002
--- ChangeLog:7.2001	Thu Jul 16 20:07:15 2009
+++ ChangeLog	Fri Jul 17 01:19:43 2009
@@ -1,3 +1,16 @@
+2009-07-16  Katsumi Yamaoka  <[email protected]>
+
+	* nnrss.el (nnrss-request-article): Allow mml-to-mime to generate MIME
+	article without making inquiry to a user for unknown encoding.
+
+	* nnmaildir.el (nnmaildir--group-maxnum, nnmaildir--new-number)
+	(nnmaildir--scan): Assume i-node and device number that file-attributes
+	returns might be cons-cell.
+
+	* dgnushack.el: Autoload thing-at-point for XEmacs 21.5.
+
+	* lpath.el: Fbind cp-supported-codepages for XEmacs 21.5.
+
 2009-07-16  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el: Remove docs now in auth.texi.  Don't use
Index: dgnushack.el
diff -u gnus/lisp/dgnushack.el:7.36 gnus/lisp/dgnushack.el:7.37
--- dgnushack.el:7.36	Mon Jun 16 02:06:10 2008
+++ dgnushack.el	Fri Jul 17 01:19:43 2009
@@ -255,6 +255,7 @@
     (autoload 'smtpmail-send-it "smtpmail")
     (autoload 'sort-numeric-fields "sort" nil t)
     (autoload 'sort-subr "sort")
+    (autoload 'thing-at-point "thingatpt")
     (autoload 'toggle-truncate-lines "view-less" nil t)
     (autoload 'trace-function-background "trace" nil t)
     (autoload 'unmorse-region "morse" nil t)
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.52 gnus/lisp/lpath.el:7.53
--- lpath.el:7.52	Fri Feb 27 03:32:28 2009
+++ lpath.el	Fri Jul 17 01:19:43 2009
@@ -55,7 +55,7 @@
     '(defun rmail-toggle-header (&optional arg)))
   (maybe-fbind
    '(clear-string
-     codepage-setup create-image detect-coding-string
+     codepage-setup cp-supported-codepages create-image detect-coding-string
      display-time-event-handler epg-check-configuration event-click-count
      event-end event-start find-coding-systems-for-charsets
      find-coding-systems-region find-coding-systems-string find-image
Index: nnmaildir.el
diff -u gnus/lisp/nnmaildir.el:7.20 gnus/lisp/nnmaildir.el:7.21
--- nnmaildir.el:7.20	Mon May 19 10:47:42 2008
+++ nnmaildir.el	Fri Jul 17 01:19:43 2009
@@ -270,8 +270,8 @@
 	(setq attr (file-attributes
 		    (concat dir (number-to-string number-linked))))
 	(or attr (throw 'return (1- number-linked)))
-	(if (/= ino-opened (nth 10 attr))
-	    (setq number-opened number-linked))))))
+	(unless (equal ino-opened (nth 10 attr))
+	  (setq number-opened number-linked))))))
 
 ;; Make the given server, if non-nil, be the current server.  Then make the
 ;; given group, if non-nil, be the current group of the current server.  Then
@@ -361,9 +361,9 @@
 		  number-open number-link))
 	   ((nnmaildir--eexist-p err)
 	    (let ((attr (file-attributes path-link)))
-	      (if (/= (nth 10 attr) ino-open)
-		  (setq number-open number-link
-			number-link 0))))
+	      (unless (equal (nth 10 attr) ino-open)
+		(setq number-open number-link
+		      number-link 0))))
 	   (t (signal (car err) (cdr err)))))))))
 
 (defun nnmaildir--update-nov (server group article)
@@ -744,7 +744,7 @@
 	    ls (or (nnmaildir--param pgname 'directory-files) srv-ls))
       (unless read-only
 	(setq x (nth 11 (file-attributes tdir)))
-	(unless (and (= x (nth 11 nattr)) (= x (nth 11 cattr)))
+	(unless (and (equal x (nth 11 nattr)) (equal x (nth 11 cattr)))
 	  (setf (nnmaildir--srv-error nnmaildir--cur-server)
 		(concat "Maildir spans filesystems: " absdir))
 	  (throw 'return nil))
Index: nnrss.el
diff -u gnus/lisp/nnrss.el:7.61 gnus/lisp/nnrss.el:7.62
--- nnrss.el:7.61	Thu Jan 22 08:02:16 2009
+++ nnrss.el	Fri Jul 17 01:19:43 2009
@@ -310,7 +310,11 @@
 		    "<#/part>\n"
 		    "<#/multipart>\n"))
 	  (condition-case nil
-	      (mml-to-mime)
+	      ;; Allow `mml-to-mime' to generate MIME article without
+	      ;; making inquiry to a user for unknown encoding.
+	      (let ((mml-confirmation-set
+		     (cons 'unknown-encoding mml-confirmation-set)))
+		(mml-to-mime))
 	    (error
 	     (erase-buffer)
 	     (insert header