diff -up rpm-spec-mode.el.orig site-lisp/rpm-spec-mode.el
--- rpm-spec-mode.el.orig	2011-11-10 17:22:20.000000000 +0100
+++ rpm-spec-mode.el	2011-11-23 15:59:13.959987280 +0100
@@ -491,6 +491,7 @@ value returned by function `user-mail-ad
        (set-keymap-name rpm-spec-mode-map 'rpm-spec-mode-map))
   (define-key rpm-spec-mode-map "\C-c\C-c"  'rpm-change-tag)
   (define-key rpm-spec-mode-map "\C-c\C-e"  'rpm-add-change-log-entry)
+  (define-key rpm-spec-mode-map "\C-c\C-w"  'rpm-goto-add-change-log-entry)
   (define-key rpm-spec-mode-map "\C-c\C-i"  'rpm-insert-tag)
   (define-key rpm-spec-mode-map "\C-c\C-n"  'rpm-forward-section)
   (define-key rpm-spec-mode-map "\C-c\C-o"  'rpm-goto-section)
@@ -719,10 +720,8 @@ This variable is global by default, but 
 If `rpm-change-log-uses-utc' is nil, \"today\" means the local time zone."
   (format-time-string "%a %b %e %Y" nil rpm-change-log-uses-utc))
 
-(defun rpm-add-change-log-entry (&optional change-log-entry)
-  "Find change log and add an entry for today."
-  (interactive "sChange log entry: ")
-  (save-excursion
+(defun rpm-goto-add-change-log-header ()
+  "Find change log and add header (if needed) for today"
     (rpm-goto-section "changelog")
     (let* ((address (rpm-spec-user-mail-address))
            (fullname (or rpm-spec-user-full-name (user-full-name)))
@@ -733,8 +732,21 @@ If `rpm-change-log-uses-utc' is nil, \"t
                                 (concat " - " (rpm-find-spec-version t))))))
       (if (not (search-forward string nil t))
           (insert "\n" string "\n")
-        (forward-line 2))
-      (insert "- " change-log-entry "\n"))))
+        (forward-line 2))))
+
+(defun rpm-add-change-log-entry (&optional change-log-entry)
+  "Find change log and add an entry for today."
+  (interactive "sChange log entry: ")
+  (save-excursion
+    (rpm-goto-add-change-log-header)
+      (insert "- " change-log-entry "\n")))
+
+(defun rpm-goto-add-change-log-entry ()
+  "Goto change log and add an header for today (if needed)."
+  (interactive)
+  (rpm-goto-add-change-log-header)
+  (insert "- \n")
+  (end-of-line '0))
 
 ;;------------------------------------------------------------