[Emacs-diffs] Changes to emacs/lisp/arc-mode.el

[Juanma Barranquero]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.51 emacs/lisp/arc-mode.el:1.52
*** emacs/lisp/arc-mode.el:1.51 Sat Jan 25 14:34:15 2003
--- emacs/lisp/arc-mode.el      Wed Jan 29 02:24:26 2003
***************
*** 1486,1495 ****
              (setq thsize (- neh p))))
        (if (= hdrlvl 0)  ;total header size
            (setq thsize hsize))
!       (setq fiddle  (string= efnname (upcase efnname)))
        (setq ifnname (if fiddle (downcase efnname) efnname))
        (setq prname (if dir (concat dir ifnname) ifnname))
!       (setq width (string-width prname))
        (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
        (setq moddate (if (= hdrlvl 2)
                          (archive-unixdate time1 time2) ;level 2 header in 
UNIX format
--- 1486,1495 ----
              (setq thsize (- neh p))))
        (if (= hdrlvl 0)  ;total header size
            (setq thsize hsize))
!       (setq fiddle  (if efnname (string= efnname (upcase efnname))))
        (setq ifnname (if fiddle (downcase efnname) efnname))
        (setq prname (if dir (concat dir ifnname) ifnname))
!       (setq width (if prname (string-width prname) 0))
        (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
        (setq moddate (if (= hdrlvl 2)
                          (archive-unixdate time1 time2) ;level 2 header in 
UNIX format