/[cmucl]/src/hemlock/netnews.lisp
ViewVC logotype

Diff of /src/hemlock/netnews.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by chiles, Wed Sep 4 14:16:21 1991 UTC revision 1.8 by chiles, Tue Sep 10 12:57:34 1991 UTC
# Line 970  Line 970 
970    :value nil)    :value nil)
971    
972    
973  (defcommand "Netnews Show All Headers" (p)  (defcommand "Netnews Show Whole Header" (p)
974    "" ""    "This command will display the entire header of the message currently
975       being read."
976      "This command will display the entire header of the message currently
977       being read."
978    (declare (ignore p))    (declare (ignore p))
979    (let* ((headers-buffer (nn-get-headers-buffer))    (let* ((headers-buffer (nn-get-headers-buffer))
980           (nn-info (variable-value 'netnews-info :buffer headers-buffer))           (nn-info (variable-value 'netnews-info :buffer headers-buffer))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5