[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-utils.el
diff -c emacs/lisp/mh-e/mh-utils.el:1.10 emacs/lisp/mh-e/mh-utils.el:1.11
*** emacs/lisp/mh-e/mh-utils.el:1.10    Thu May 26 15:22:06 2005
--- emacs/lisp/mh-e/mh-utils.el Sat May 28 22:04:54 2005
***************
*** 1,6 ****
  ;;; mh-utils.el --- MH-E code needed for both sending and reading
  
! ;; Copyright (C) 1993, 95, 1997, 2000, 01, 2005 Free Software Foundation, Inc.
  
  ;; Author: Bill Wohler <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,7 ----
  ;;; mh-utils.el --- MH-E code needed for both sending and reading
  
! ;; Copyright (C) 1993, 1995, 1997,
! ;; 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Bill Wohler <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 703,710 ****
    (save-excursion
      (beginning-of-line)
      (cond ((looking-at mh-scan-msg-number-regexp)
!            (string-to-int (buffer-substring (match-beginning 1)
!                                             (match-end 1))))
            (error-if-no-message
             (error "Cursor not pointing to message"))
            (t nil))))
--- 704,711 ----
    (save-excursion
      (beginning-of-line)
      (cond ((looking-at mh-scan-msg-number-regexp)
!            (string-to-number (buffer-substring (match-beginning 1)
!                                                (match-end 1))))
            (error-if-no-message
             (error "Cursor not pointing to message"))
            (t nil))))
***************
*** 1672,1678 ****
    "Decode >From at beginning of lines for `mh-show-mode'."
    (save-excursion
      (let ((modified (buffer-modified-p))
!           (case-fold-search nil))
        (goto-char (mh-mail-header-end))
        (while (re-search-forward "^>From" nil t)
          (replace-match "From"))
--- 1673,1680 ----
    "Decode >From at beginning of lines for `mh-show-mode'."
    (save-excursion
      (let ((modified (buffer-modified-p))
!           (case-fold-search nil)
!           (buffer-read-only nil))
        (goto-char (mh-mail-header-end))
        (while (re-search-forward "^>From" nil t)
          (replace-match "From"))