[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-uu.el

[Thien-Thi Nguyen]

Index: emacs/lisp/gnus/gnus-uu.el
diff -c emacs/lisp/gnus/gnus-uu.el:1.20 emacs/lisp/gnus/gnus-uu.el:1.21
*** emacs/lisp/gnus/gnus-uu.el:1.20     Tue Aug  2 07:21:08 2005
--- emacs/lisp/gnus/gnus-uu.el  Sat Aug  6 19:51:42 2005
***************
*** 1,6 ****
  ;;; gnus-uu.el --- extract (uu)encoded files in Gnus
! ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
! ;;        2001, 2002, 2003 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Created: 2 Oct 1993
--- 1,7 ----
  ;;; gnus-uu.el --- extract (uu)encoded files in Gnus
! 
! ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998,
! ;;   2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Created: 2 Oct 1993
***************
*** 1353,1359 ****
              (gnus-message 2 "No begin part at the beginning")
              (sleep-for 2))
          (setq state 'middle))))
!     
        ;; When there are no result-files, then something must be wrong.
      (if result-files
        (message "")
--- 1354,1360 ----
              (gnus-message 2 "No begin part at the beginning")
              (sleep-for 2))
          (setq state 'middle))))
! 
        ;; When there are no result-files, then something must be wrong.
      (if result-files
        (message "")
***************
*** 1439,1445 ****
          ;; We replace certain characters that could make things messy.
          (setq gnus-uu-file-name
                (gnus-map-function
!                mm-file-name-rewrite-functions 
                 (file-name-nondirectory (match-string 1))))
          (replace-match (concat "begin 644 " gnus-uu-file-name) t t)
  
--- 1440,1446 ----
          ;; We replace certain characters that could make things messy.
          (setq gnus-uu-file-name
                (gnus-map-function
!                mm-file-name-rewrite-functions
                 (file-name-nondirectory (match-string 1))))
          (replace-match (concat "begin 644 " gnus-uu-file-name) t t)