Index: ffap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ffap.el,v
retrieving revision 1.71
diff -u -c -r1.71 ffap.el
cvs diff: conflicting specifications of output style
*** ffap.el	18 Jan 2008 05:43:24 -0000	1.71
--- ffap.el	21 Jan 2008 21:13:27 -0000
***************
*** 956,967 ****
  		      "/pub/gnu/emacs/elisp-archive/"))
      (substring name 2))))
  
  (defvar ffap-rfc-path
    (concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt"))
  
  (defun ffap-rfc (name)
!   (format ffap-rfc-path
! 	  (substring name (match-beginning 1) (match-end 1))))
  
  
  ;;; At-Point Functions:
--- 956,974 ----
  		      "/pub/gnu/emacs/elisp-archive/"))
      (substring name 2))))
  
+ (defcustom ffap-rfc-directories nil
+   "A list of directories to look for RFC files.
+ If a given RFC isn't in these then `ffap-rfc-path' is offered."
+   :type '(repeat directory)
+   :group 'ffap)
+ 
  (defvar ffap-rfc-path
    (concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt"))
  
  (defun ffap-rfc (name)
!   (let ((num (match-string 1 name)))
!     (or (ffap-locate-file (format "rfc%s.txt" num) t ffap-rfc-directories)
!         (format ffap-rfc-path num))))
  
  
  ;;; At-Point Functions: