[Emacs-diffs] /srv/bzr/emacs/trunk r112704: * mail/unrmail.el (unrmail): Replace obsolete detect-coding-with-priority.

[Glenn Morris]

------------------------------------------------------------
revno: 112704
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-23 23:55:45 -0700
message:
  * mail/unrmail.el (unrmail): Replace obsolete detect-coding-with-priority.
modified:
  lisp/ChangeLog
  lisp/mail/unrmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-24 06:53:54 +0000
+++ b/lisp/ChangeLog    2013-05-24 06:55:45 +0000
@@ -1,5 +1,8 @@
 2013-05-24  Glenn Morris  <address@hidden>
 
+       * mail/unrmail.el (unrmail):
+       Replace obsolete detect-coding-with-priority.
+
        * net/socks.el (socks-split-string): Use this rather than split-string.
        (socks-nslookup-host): Update for above change.
        (dynamic-choice, s5-dynamic-choice-match)

=== modified file 'lisp/mail/unrmail.el'
--- a/lisp/mail/unrmail.el      2013-01-19 20:58:00 +0000
+++ b/lisp/mail/unrmail.el      2013-05-24 06:55:45 +0000
@@ -94,11 +94,9 @@
              ;; earlier versions did that with the current buffer's encoding.
              ;; So we want to favor detection of emacs-mule (whose normal
              ;; priority is quite low), but still allow detection of other
-             ;; encodings if emacs-mule won't fit.  The call to
-             ;; detect-coding-with-priority below achieves that.
-             (car (detect-coding-with-priority
-                   from to
-                   '((coding-category-emacs-mule . emacs-mule))))))
+             ;; encodings if emacs-mule won't fit.
+             (car (with-coding-priority '(emacs-mule)
+                    (detect-coding-region from to)))))
       (unless (memq coding-system
                    '(undecided undecided-unix))
        (set-buffer-modified-p t)       ; avoid locking when decoding