1486 |
(setq thsize (- neh p)))) |
(setq thsize (- neh p)))) |
1487 |
(if (= hdrlvl 0) ;total header size |
(if (= hdrlvl 0) ;total header size |
1488 |
(setq thsize hsize)) |
(setq thsize hsize)) |
1489 |
(setq fiddle (string= efnname (upcase efnname))) |
(setq fiddle (if efnname (string= efnname (upcase efnname)))) |
1490 |
(setq ifnname (if fiddle (downcase efnname) efnname)) |
(setq ifnname (if fiddle (downcase efnname) efnname)) |
1491 |
(setq prname (if dir (concat dir ifnname) ifnname)) |
(setq prname (if dir (concat dir ifnname) ifnname)) |
1492 |
(setq width (string-width prname)) |
(setq width (if prname (string-width prname) 0)) |
1493 |
(setq modestr (if mode (archive-int-to-mode mode) "??????????")) |
(setq modestr (if mode (archive-int-to-mode mode) "??????????")) |
1494 |
(setq moddate (if (= hdrlvl 2) |
(setq moddate (if (= hdrlvl 2) |
1495 |
(archive-unixdate time1 time2) ;level 2 header in UNIX format |
(archive-unixdate time1 time2) ;level 2 header in UNIX format |