Mercurial > emacs
comparison lisp/gnus/mml.el @ 33301:c1c373a70748
Put some defvars in eval-when-compile.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 08 Nov 2000 15:36:19 +0000 |
| parents | 4e779ba474ee |
| children | e06db3b8e558 |
comparison
equal
deleted
inserted
replaced
| 33300:cae923af5a5d | 33301:c1c373a70748 |
|---|---|
| 505 (setq value (file-name-nondirectory value))) | 505 (setq value (file-name-nondirectory value))) |
| 506 (mml-insert-parameter | 506 (mml-insert-parameter |
| 507 (mail-header-encode-parameter | 507 (mail-header-encode-parameter |
| 508 (symbol-name type) value)))))) | 508 (symbol-name type) value)))))) |
| 509 | 509 |
| 510 (defvar ange-ftp-name-format) | 510 (eval-when-compile |
| 511 (defvar efs-path-regexp) | 511 (defvar ange-ftp-name-format) |
| 512 (defvar efs-path-regexp)) | |
| 512 (defun mml-parse-file-name (path) | 513 (defun mml-parse-file-name (path) |
| 513 (if (if (boundp 'efs-path-regexp) | 514 (if (if (boundp 'efs-path-regexp) |
| 514 (string-match efs-path-regexp path) | 515 (string-match efs-path-regexp path) |
| 515 (if (boundp 'ange-ftp-name-format) | 516 (if (boundp 'ange-ftp-name-format) |
| 516 (string-match (car ange-ftp-name-format) path))) | 517 (string-match (car ange-ftp-name-format) path))) |