* wl-summary.el (wl-summary-get-original-buffer): New function.

[elisp/wanderlust.git] / wl / wl-demo.el

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 24392f4..990cab2 100644 (file)
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -1,7 +1,7 @@
 ;;; wl-demo.el -- Opening demo on Wanderlust.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
-;; Copyright 2000 Katsumi Yamaoka <yamaoka@jpl.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 2000 Katsumi Yamaoka <yamaoka@jpl.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;;     Katsumi Yamaoka <yamaoka@jpl.org>
@@ -32,13 +32,11 @@
 ;;
 
 (defconst wl-demo-copyright-notice
-  "Copyright (C) 1998-2000 Yuuichi Teranishi <teranisi@gohome.org>")
+  "Copyright (C) 1998-2001 Yuuichi Teranishi <teranisi@gohome.org>")
 
 (require 'wl-vars)
 (require 'wl-version)
 (require 'wl-highlight)
-(require 'product)
-(product-provide (provide 'wl-demo) (require 'wl-version))
 
 (defconst wl-demo-icon-name (concat "wl-" (wl-version-status) "-logo"))
 
@@ -340,4 +338,7 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
       (sit-for (if (featurep 'lisp-float-type) (/ (float 5) (float 10)) 1))
       demo-buf)))
 
+(require 'product)
+(product-provide (provide 'wl-demo) (require 'wl-version))
+
 ;;; wl-demo.el ends here