Commit 2e62b574 authored by Glenn Morris's avatar Glenn Morris
Browse files

Use default-value rather than default-enable-multibyte-characters.

parent 102a7c9d
2009-09-03 Glenn Morris <rgm@gnu.org>
* mm-util.el (mm-emacs-mule, mm-default-multibyte-p):
* rfc2047.el (rfc2047-encode-message-header): Use default-value rather
than default-enable-multibyte-characters.
2009-09-02 Glenn Morris <rgm@gnu.org>
* gnus-util.el (gnus-float-time): New function.
......
;;; mm-util.el --- Utility functions for Mule and low level things
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
;; 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
......@@ -900,8 +900,8 @@ mail with multiple parts is preferred to sending a Unicode one.")
(eval-and-compile
(defvar mm-emacs-mule (and (not (featurep 'xemacs))
(boundp 'default-enable-multibyte-characters)
default-enable-multibyte-characters
(boundp 'enable-multibyte-characters)
(default-value 'enable-multibyte-characters)
(fboundp 'set-buffer-multibyte))
"True in Emacs with Mule.")
......@@ -1013,8 +1013,8 @@ This is a compatibility function for Emacsen without `delete-dups'."
"Return non-nil if the session is multibyte.
This affects whether coding conversion should be attempted generally."
(if (featurep 'mule)
(if (boundp 'default-enable-multibyte-characters)
default-enable-multibyte-characters
(if (boundp 'enable-multibyte-characters)
(default-value 'enable-multibyte-characters)
t)))
(defun mm-iso-8859-x-to-15-region (&optional b e)
......
;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
;; 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
......@@ -282,8 +282,8 @@ Should be called narrowed to the head of the message."
(rfc2047-encode-region (point) (point-max))))
((eq method 'default)
(if (and (featurep 'mule)
(if (boundp 'default-enable-multibyte-characters)
default-enable-multibyte-characters)
(if (boundp 'enable-multibyte-characters)
(default-value 'enable-multibyte-characters))
mail-parse-charset)
(mm-encode-coding-region (point) (point-max)
mail-parse-charset)))
......@@ -309,8 +309,8 @@ Should be called narrowed to the head of the message."
;;; (error "Cannot send unencoded text")))
((mm-coding-system-p method)
(if (or (and (featurep 'mule)
(if (boundp 'default-enable-multibyte-characters)
default-enable-multibyte-characters))
(if (boundp 'enable-multibyte-characters)
(default-value 'enable-multibyte-characters)))
(featurep 'file-coding))
(mm-encode-coding-region (point) (point-max) method)))
;; Hm.
......
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