[mew-dist 29309] eliminate warnings for Emacs 23.3

Yu-ji Hosokawa <[email protected]> Thu, 20 Jan 2011 05:07:18 +0900

Newsgroups	gmane.mail.mew.general.japanese
Message-ID	<[email protected]>

細川です

Emacs 23.2.92 pretest にて make したところ、

| In mew-addrbook-insert-file:
| mew-addrbook.el:304:23:Warning: `delete-backward-char' used from Lisp code
| That command is designed for interactive use only

や

| In mew-summary-store:
| mew-summary4.el:360:24:Warning: `default-buffer-file-coding-system' is an
|     obsolete variable (as of Emacs 23.2); use `buffer-file-coding-system'
|     instead.

といった warning が出ました。
これらを取り除いただけのパッチを添付します。

-- 
Yu-ji Hosokawa (細川雄司)

elim_warns_for_emacs23-3.patch (text/x-patch, 1.9 KB)

diff --git a/mew-addrbook.el b/mew-addrbook.el
index ad2f68e..c654094 100644
--- a/mew-addrbook.el
+++ b/mew-addrbook.el
@@ -287,7 +287,7 @@ returned."
     (while (re-search-forward ",$" nil t)
       (end-of-line)
       (forward-char 1)
-      (delete-backward-char 1))
+      (delete-char -1))
     ;; replace ", " to "\0" inside/outside quote.
     (goto-char (point-min))
     (while (re-search-forward ",[ \t]+" nil t)
diff --git a/mew-draft.el b/mew-draft.el
index 74a363b..c5e8657 100644
--- a/mew-draft.el
+++ b/mew-draft.el
@@ -549,7 +549,7 @@ citation prefix and label.
 		  (insert ellipses)
 		  (goto-char eol)
 		  (while (< fill-column (current-column))
-		    (delete-backward-char 1))))
+		    (delete-char -1))))
 	       ((eq mew-draft-cite-fill-mode 'wrap)
 		(setq beg (point))
 		(end-of-line)
diff --git a/mew-encode.el b/mew-encode.el
index f422fed..0eab1a7 100644
--- a/mew-encode.el
+++ b/mew-encode.el
@@ -174,7 +174,7 @@
 	    (setq start (match-end 0))
 	    (forward-line)
 	    (while (looking-at mew-lwsp)
-	      (delete-backward-char 1)
+	      (delete-char -1)
 	      (forward-line))
 	    (setq val (mew-buffer-substring start (1- (point))))
 	    (delete-region start (1- (point)))
@@ -737,7 +737,7 @@
 
 (defun mew-encode-flowed-remove-trailing-sp ()
   (while (and (not (bobp)) (= (char-before) mew-sp))
-    (delete-backward-char 1)))
+    (delete-char -1)))
 
 (defun mew-encode-flowed-line (column delsp)
   (let (prefix beg)
diff --git a/mew-summary4.el b/mew-summary4.el
index 4d97ed7..b8361b3 100644
--- a/mew-summary4.el
+++ b/mew-summary4.el
@@ -357,7 +357,7 @@ If executed with '\\[universal-argument]', coding-system is asked."
 	(message "Not saved")
       (let ((writecs (if askcs
 			 (read-coding-system "Coding-system: ")
-		       default-buffer-file-coding-system)))
+		       (default-value 'buffer-file-coding-system))))
 	(with-current-buffer (mew-buffer-message)
 	  (mew-frwlet mew-cs-dummy writecs
 	    ;; do not specify 'no-msg