Update copyright notices of all files in the gnus directory.

[gnu-emacs] / lisp / gnus / qp.el

diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el
index 1004abeb02b0cb4dd312a431161567dca0d4a780..cb89a3550bafea2b691e7350b36d405ccd2f453a 100644 (file)
--- a/lisp/gnus/qp.el
+++ b/lisp/gnus/qp.el
@@ -1,7 +1,7 @@
 ;;; qp.el --- Quoted-Printable functions
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2005
-;;        Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail, extensions
@@ -20,8 +20,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -69,9 +69,9 @@ them into characters should be done separately."
          (cond ((eq (char-after (1+ (point))) ?\n)
                 (delete-char 2))
                ((looking-at "=[0-9A-F][0-9A-F]")
-                (let ((byte (string-to-int (buffer-substring (1+ (point))
-                                                             (+ 3 (point)))
-                                           16)))
+                (let ((byte (string-to-number (buffer-substring (1+ (point))
+                                                                (+ 3 (point)))
+                                              16)))
                   (mm-insert-byte byte 1)
                   (delete-char 3)))
                (t