* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 593c7d4..151b7de 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2009-07-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <tzz@lifelogs.com>
 
        * auth-source.el: Remove docs now in auth.texi.  Don't use

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index db13353..caaaf05 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -255,6 +255,7 @@ fixed in Emacs 22."
     (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)

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 54f9823..cdf16f0 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -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

diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 65f93f8..628b4c5 100644 (file)
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -270,8 +270,8 @@ by nnmaildir-request-article.")
        (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 @@ by nnmaildir-request-article.")
                  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 @@ by nnmaildir-request-article.")
            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))

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 051723d..cf59c81 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -310,7 +310,11 @@ used to render text.  If it is nil, text will simply be folded.")
                    "<#/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